1:
2:
3:
4:
5:

Repeat 
 .
 .
 .
Until ????????					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function IsKeyDown(c : Char) : Boolean;
var
 vk : Integer;
begin
 vk:=VkKeyScan(c) and $FF;
 if vk<>$FF then
  Result:=(GetAsyncKeyState(vk)<0)
 else
  Result:=False;
end;

...

repeat

until fertig or IsKeyDown('a');

...					

1:

Keypressed: Boolean;