Fórum Trocar o TAB por Enter em Toda a Aplicação..Como? #292811

//Mudar com Enter e Setas Acima e Abaixo

Uses
Grids

procedure TFormPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
If not ((Screen.ActiveControl is TCustomMemo) or
(Screen.ActiveControl is TCustomGrid) or
(Screen.ActiveForm.ClassName = ´TMessageForm´)) then
begin
If Msg.message = WM_KEYDOWN then
begin
Case Msg.wParam of
VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);
VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
end;
end;
end;
end;

no evento OnCreate o Form Principal digite a seguinte linha

Application.OnMessage := MudarComEnter;

usei essa informação mas está dando o erro:

[Error] Unit_Index.pas(113): Incompatible types: ´method pointer and regular procedure´

o que fiz de errado?

[b:5aeaad7fa7]Código Completo da Unit do Formulario Principal (Delphi 7)[/b:5aeaad7fa7]

unit UntPrincipal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

type
TFormPrincipal = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MudarComEnter(var Msg: TMsg; var Handled: Boolean);
{ Public declarations }
end;

var
FormPrincipal: TFormPrincipal;

implementation

{$R *.dfm}


procedure TFormPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
If not ((Screen.ActiveControl is TCustomMemo) or
(Screen.ActiveControl is TCustomGrid) or
(Screen.ActiveForm.ClassName = ´TMessageForm´)) then
begin
If Msg.message = WM_KEYDOWN then
begin
Case Msg.wParam of
VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);
VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
end;
end;
end;
end;


procedure TFormPrincipal.FormCreate(Sender: TObject);
begin
Application.OnMessage := MudarComEnter;
end;

end.

eu utilizo o delphi 6 tem alguma diferença?