Hola,
Si lo que quieres es asignar a un componente un método para su evento "OnKeyPress" debes implentar en un objeto un procedimiento con los parámetros adecuados para responder a dicho evento:
Código Delphi
[-]
procedure TeclaPresionada(Sender: TObject; var Key: Char);
Por ejemplo, en el siguiente código se implementa un método con los parámetros adecuados dentro de un formulario y se asigna al evento "OnKeyPress" de dicho formulario el método en cuestión aprovechando el evento "OnCreate":
Código Delphi
[-]
unit UFormulario;
interface
uses
Forms, SysUtils, Dialogs;
type
TfrmPrincipal = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure TeclaPresionada(Sender: TObject; var Key: Char);
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
OnKeyPress := TeclaPresionada;
end;
procedure TfrmPrincipal.TeclaPresionada(Sender: TObject; var Key: Char);
resourcestring
rsMsg = 'Se pulsó la tecla: %s';
begin
ShowMessage(Format(rsMsg, [Key]));
end;
end.