procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key >= $41) and (Key <= $5A) then begin Keys := Keys + chr(Key); if Keys = 'TEST' then begin Keys := ''; ShowMessage('Test'); end; end; end;
----------------------------------------------
-