Como Crear Programa Que Pulse Una Tecla Continuamente?

[[Caral]]

Hola
Para ampliar un poco lo dicho por ecfisa:
Hay que tener en cuenta que antes del ELSE no hay que poner punto y coma.
Tambien hay que tomar en cuenta que si hay mas de un dato entre estos delphi solo leera el primero, para que lea todos se necesita iniciar y terminar el proceso, asi:

Código Delphi [-]
 if Variable > 0 then
      begin // comienza
      Variable := 2;  // primer dato
      ShowMessage('La variable es 2'); // segundo dato, con punto y coma
      end  // termina sin punto y coma
    else
    Begin 
      Variable := 1;
      ShowMessage('La variable es 1');
end; // final

Saludos