Key Escape

[Alfredo]

Puedes simularlo usando este codigo:

keybd_event( VK_ESCAPE,0,KEYEVENTF_EXTENDEDKEY, 0);
keybd_event( VK_ESCAPE,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

si quieres probarlo pega un boton y asignale este codigo en el evento KeyPress del form y en la propiedad KeyPreview debes cambiar a True.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then showmessage('pulso escape');
end;

Bien,