var
Page: TfrxReportPage;
Band: TfrxBand;
DataBand: TfrxMasterData;
Memo: TfrxMemoView;

{frxDBDataset1 bileşeni ile tabloya bağlanıyoruz.}
frxDBDataset1.DataSet:=IBQuery1;
{ Raporu Temizle}
frxReport1.Clear;
{ FastReportun Veri Ağacına Tablo Alanlarını Listele }
frxReport1.DataSets.Add(frxDBDataSet1);
{Rapora Sayfa Ekle}
Page := TfrxReportPage.Create(frxReport1);
{ Başka Nesnede olmayan bir isim ver}
Page.CreateUniqueName;
{Alan ve sayfa genişliklerini varsayılan olarak ayarla }
Page.SetDefaults;
{Kenar boşluklarını Ayarla. 10=1 cm}
page.TopMargin:=20;
page.LeftMargin:=20;
{sayfanın boyutunu ayarlayın.1 VE 2.PARAMETREYE SIFIR VERİN.3.PARAMETRE SAYFA GENİŞLİĞİNİ 4.PARAMETRE SAYFA YÜKSEKLİĞİNİ VERİR}
page.SetBounds(0,0,21,29.70);
{raporun yatay veya dikey olması. kullanabilmek için uses'a Printers ekleyin}
page.Orientation:=poLandscape;
{ report title (Sayfa Başlığı) bandı Ekle}
Band := TfrxReportTitle.Create(Page);
Band.CreateUniqueName;
{ band kooordinatlarını veriyoruz. Top Ve Height özellikleri Yeterli}
Band.Top := 0;
Band.Height := 20;
{ Rapor Başlığına Metin Nesnesi Ekle ve Başlığı Yaz }
Memo := TfrxMemoView.Create(Band);
Memo.CreateUniqueName;
Memo.Text := 'Merhaba FastReport!';
Memo.Height := 20;
{ Metin Nesnesini band geniliğince Genişlet}
Memo.Align := baWidth;
{ masterdata bandı ekle }
DataBand := TfrxMasterData.Create(Page);
DataBand.CreateUniqueName;
{masterdata bandının DataSetine forma eklediğimiz frxDBDataSet bileşeninni göster}
DataBand.DataSet := frxDBDataSet1;
DataBand.Top := 100;
DataBand.Height := 20;
{ masterdata ya nesne Ekle}
Memo := TfrxMemoView.Create(DataBand);
Memo.CreateUniqueName;
{ Dataya Bağlan }
Memo.DataSet := frxDBDataSet1;
Memo.DataField := 'FIRST_NAME';
Memo.SetBounds(0, 0, 100, 20);
{nESNEYİ sAĞA HİZALA }
Memo.HAlign := haRight;
{ RAPORU GÖSTER}
frxReport1.ShowReport;