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

Procedure Programm_beenden;
begin
  if MessageDLg('Programm benden?',mtConfirmation,[mbNO,MbYes],1)= mrYes then begin
     Form1.close;
  end
end;

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ord(key)=13 then begin
       Label1.Caption:='Jetzt wurde die Enter-Taste gedrückt!';
       //bzw. geht es hier zu einer Programmausführung ...
  end;
  if ord(key)=27 then begin
    Label1.Caption:='';
    Programm_beenden;
  end;
end;					

1:
2:
3:
4:
5:

if Key=#32 then // leertaste 
begin
  ... // your code here
  key:=#0; //<--- WICHTIG
end;