Hvordan binder jeg en tast til noget.. Ligesom genveje!

Sæt KeyPreview til True og så kan du bruge denne kode til at lukke programmet når der bliver trykket Ctrl+Q:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Word('Q')) and (ssCtrl in Shift) then
    Application.Terminate;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key 'x' then
Application.Terminate;
end;

hvor skal den kode skrives ind henne i selve koden?

Du dobbelt klikker på OnKeyDown i event for formen, og erstatter:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

end;

med den anden kode :)

Og KeyPreview i Properties for formen :o)