Mensaje al dejar presionada una Tecla

[Alexandro]

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:

Código Delphi [-]
tiempo:=0;

Espero que te sirva.
Suerte.