Miscellany

type
  Tbilesen = (btanapanel,btodanumara,btodatipi,btyatak);
  TForm1 = class(TForm)

..

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
function fncComp(bilesen: Tcomponent; turu:Tbilesen;sahip:twincontrol;baslik:string;sol,ust:integer) : string;
begin
  case turu of
    btanapanel: begin
          bilesen:=tpanel.Create(Form1);
          bilesen.Name:='btapanel'+inttostr(ComponentCount);
          (bilesen as tpanel).Parent:=sahip;
          (bilesen as tpanel).Top:=ust;
          (bilesen as tpanel).Left:=(sol-1)*89+8;
          (bilesen as tpanel).Height:=102;
          (bilesen as tpanel).Width:=81;
          (bilesen as tpanel).Caption:='';
    end;
    btodanumara: begin
          bilesen:=tlabel.Create(sahip);
          bilesen.Name:='btodanum'+inttostr(ComponentCount);
          (bilesen as tlabel).Parent:=sahip;
          (bilesen as tlabel).Top:=ust;
          (bilesen as tlabel).Height:=17;
          (bilesen as tlabel).Width:=77;
          (bilesen as tlabel).Color:=clGray;
          (bilesen as tlabel).Left:=sol;
          (bilesen as tlabel).Caption:=baslik;
          (bilesen as tlabel).font.Color:=clMaroon;
          (bilesen as tlabel).Font.Size:=13;
//          (bilesen as tlabel).Align:=alTop;        /
//          (bilesen as tlabel).Alignment:=taCenter;
    end;
    btodatipi: begin
          bilesen:=tlabel.Create(sahip);
          bilesen.Name:='btotipi'+inttostr(ComponentCount);
          (bilesen as tlabel).Parent:=sahip;
          (bilesen as tlabel).Top:=ust;
          (bilesen as tlabel).Left:=sol;
          (bilesen as tlabel).Caption:=baslik;
          (bilesen as tlabel).Alignment:=taCenter;
    end;
    btyatak: begin
          bilesen:=tlabel.Create(sahip);
          bilesen.Name:='btytk'+inttostr(ComponentCount);
          (bilesen as tlabel).Parent:=sahip;
          (bilesen as tlabel).Top:=ust;
          (bilesen as tlabel).Left:=sol;
          (bilesen as tlabel).Caption:=baslik;
          (bilesen as tlabel).Alignment:=taCenter;
    end;
  end;
  result:=bilesen.name;
end;
var
kanapanel:array of tpanel;
kodanum,kodatip:array of tlabel;
kyatak1,kyatak2,kyatak3,kyatak4:array of TStaticText;
satir,sayi,i:integer;
begin
satir:=(Self.Width-16) div 89;
sayi:=satir;
SetLength(kanapanel,sayi+1);
SetLength(kodanum,sayi+1);
SetLength(kodatip,sayi+1);
SetLength(kyatak1,sayi+1);
SetLength(kyatak2,sayi+1);
SetLength(kyatak3,sayi+1);
SetLength(kyatak4,sayi+1);
for i := 1 to sayi do
  begin
    fncComp(kanapanel[i],btanapanel,form1,'',i,8);
    fncComp(kodanum[i],btodanumara,kanapanel[i],'10'+inttostr(i),0,0);
  end;
end;