Accion con botones del teclado

[ecfisa]

Hola krewer.

Poné dos TButton en el form y hacé doble click sobre Button1, deberías ver algo similar a esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Copia y pega entre begin y end el código:

Código Delphi [-]
keybd_event(VK_CONTROL,0,0,0);

Que es el encargado de presionar la tecla especificada.
Desde el Object Inspector cambia la propiedad Name de Button1 por el nombre de tu gusto. (En mi caso elegí : btCtrlPress)

Repite los pasos para Button2 con la salvedad que tendrás que copiar/pegar el código:

Código Delphi [-]
keybd_event(VK_CONTROL,0,2,0);

Ya que este se encarga de liberar la tecla presionada.

Saludos.