[PashaXP]

Если сделать так, то все нормально

Код:

implementation
uses Unit2;
......
функции
......
procedure TForm1.Button2Click(Sender: TObject);
begin
TEdit('Edit'+IntToStr(1)+IntToStr(1)).Text:='1';//
end;