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.