Код:
implementation
uses Unit2;
......
функции
.....
procedure TForm1.Button2Click(Sender: TObject);
PROCEDURE FILLING_COMBOBOX_FILE;
Begin
Form1.Edit1.Text:='1'; //Работает
TEdit(FindComponent('Edit'+IntToStr(1)+IntToStr(1))).Text:='1';//Компилируется, но при выполнении выдается ошибка
End;
begin
PROCEDURE FILLING_COMBOBOX_FILE;
end;
....
Может так? |