var L: TLabel; begin l:=Tlabel.Create(application); l.parent :=Form1; l.Left:= 80; l.Top:= 45; l.Width:= 40; l.Height:= 13; l.Caption:= 'Label1'; end;
var i,Atop:integer; begin for i:=0 to 9 do begin with TLabel.Create(Self) do begin Parent := self; top := ATop; width := 68; height := 17; if ((i+2) mod 2)=0 then left:=8 else begin left := 182; ATop := ATop+28; end; caption:='label'+InttoStr(i); end; end; end;
L: TLabel;
begin
l:=Tlabel.Create(application);
l.parent :=Form1;
l.Left:= 80;
l.Top:= 45;
l.Width:= 40;
l.Height:= 13;
l.Caption:= 'Label1';
end;
i,Atop:integer;
begin
for i:=0 to 9 do
begin
with TLabel.Create(Self) do
begin
Parent := self;
top := ATop;
width := 68;
height := 17;
if ((i+2) mod 2)=0 then
left:=8
else
begin
left := 182;
ATop := ATop+28;
end;
caption:='label'+InttoStr(i);
end;
end;
end;