[rarratia]

estos serían los procedimientos:

Código Delphi [-]
procedure tecla_pulsada(Sender: TObject; var Key: Char);
begin
  (Sender As TForm).Close;
end;

procedure se_mueve_mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  (Sender As TForm).Close;
end;