Обработка события при нажатии определенной последовательности символов.

[Chudo4258]

Есть форма, на ней находится Image1 (при чем он распологается на всю форму), и все, больше никаких компонент нет (и использовать другие компоненты нельзя).
Нужно при вводе некоторого слова (например "abra-kadabra"), чтобы форма выполнила какое-то действие, ну предположим закрылась.

ну про крайней мере нельзя использовать видимые компоненты.

[Google2010]

const s:='close';
var k:integer;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
k:=1;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=s[k]) then Inc(k) else k:=1;
   if k=Length(s)+1 then close;
end;

сделай и набери close