¿Y cual es tu problema?
¿No sabes como invocarlo? ¿O es que te falla?
Es sencillo.. como en cualquier lenguaje....
Código Delphi
[-]procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
Procedimiento_Hacer_Algo(Algun_parametro_si_se_necesita);
end;
Creo que a lo mejor no pasa por esto la pregunta... lo veo muy simple...
Ya dirás si es esto...
Espero ser de ayuda.
Saludos