Блин, я понял ошибку, у меня эти едиты стоят на 12 форме, а не на 1ой. Пытался сделать так:
Код:
if chr(Key) = TEdit(FindComponent('form12.'+'Edit' + IntToStr(i))).Text then
script.Lines.Add(TLabeledEdit(FindComponent('form12.'+'LabeledEdit' + IntToStr(i))).Text);
Нет эффекта, может надо как-нибудь по другому?