[Мяфк]

Спасибо, но проблема. Сделал такой код под себя:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var i:integer;
  var e1,e2:Tedit;
begin
  For i := 1 to 9 Do
    Begin
       e1 := FindComponent('LabeledEdit'+IntToStr(I)+'.text') As TEdit;
       e2 := FindComponent('edit'+IntToStr(i)+'.text') As TEdit;
  if ssAlt in Shift then
    if chr(Key) = e2.text then
      script.lines.add (e1.Text);
end;
end;

Но при нажатии к примеру alt+1 ничего не происходит.