delphi WITH DOµÄÎÊÌâ

procedure TForm2.Button1Click(Sender: TObject);
var
  i:integer;
begin
SetLength(a,200);
for I := 0 to 199 do
begin
A[i]:=Tedit.Create(self);
  with A[i] do
        begin
        Parent:=self;
          AutoSize:=False;
          Height:=(ClientHeight-button1.Height-20)div 10;
          Width:=ClientWidth div 20;
          Top:=(i div 20)*a[i].Height;
          Left:=(i mod 20)*a[i].Width;
          Text:=inttostr(i+1);
        end;
  end;

end;


procedure TForm2.Button2Click(Sender: TObject);

var
i:integer;
begin
  SetLength(a,200);
  for i := 0 to  199 do
  begin
    a[i] := TEdit.Create(self);
    a[i].Parent := self;
    a[i].AutoSize := False;
    a[i].Height := (ClientHeight-Button1.Height-20)div 10;
    a[i].Width := ClientWidth div 20;
    a[i].Top := (i div 20)*a[i].Height;
    a[i].Left := (i mod 20 )*a[i].Width ;
    a[i].Text  := inttostr(i+1);
    end;