with
button[i]
do
begin
Parent : = Self;
top: = atop; left: = 30 ;
width: = 100 ;
height : = 30 ;
atop: = atop + 30 ;
caption: = ' cj ' + inttostr(i);
OnClick : = ButtonClick; { procedure TForm1.ButtonClick(Sender: TObject); }
end ;
begin
Parent : = Self;
top: = atop; left: = 30 ;
width: = 100 ;
height : = 30 ;
atop: = atop + 30 ;
caption: = ' cj ' + inttostr(i);
OnClick : = ButtonClick; { procedure TForm1.ButtonClick(Sender: TObject); }
end ;