if chr(Key) = TEdit(form12.FindComponent('Edit' + IntToStr(i))).Text then script.Lines.Add(TLabeledEdit(form12.FindComponent('LabeledEdit' + IntToStr(i))).Text);