Вот вот, а я еще и плохо разбираюсь...
Этот код выдернул из проги(просто кусок), он работает все ОК, выполняется при событии - нажатие на кнопку
Код:
....
E_Stroka:=TEdit(FindComponent('Edit'+IntTostr(Tek)+IntToStr(z))).Text;
Delete(E_Stroka,Length(E_Stroka)-Length(Poisk)+1,Length(Poisk));
TEdit(FindComponent('Edit'+IntTostr(Tek)+IntToStr(z))).Text:=E_Strok
....
А если Использую TEdit(FindComponent(...).Text в своей процедуре, компилируется, но при работе проги - ошибка....