hola paul170185:
Mira, lo que quieres es bastante sencillo. En tu form pon un grid, y un timer.
en el evento OnKeyDown del grid pones este codigo:
Código Delphi
[-]if Key=17 then timer1.Enabled:=true;
Aqui lo que haces es tomar el valor Ascii de la tecla Crtl de la izq que es 17 y compararlo.
Ahora en el OnTimer pones esto:
Código Delphi
[-]
inc(tiempo);
if tiempo=4 then
begin
timer1.Enabled:=false;
ShowMessage('4 segundos presionada.');
tiempo:=0;
end;
tiempo es una variable de tipo byte y es global.
Y para finalizar agregas esto en el evento OnKeyUp del Grid:
Espero que te sirva.
Suerte.