我的程序窗体里定义了一个过程,然后在程序启动的事件里调用这个过程,但是说要参数,(0分)

我的程序窗体里定义了一个过程,然后在程序启动的事件里调用这个过程,但是说要参数,
请问是那个参数啊,谢谢
private
{ Private declarations }
procedure ClientWndProc(var Message: TMessage);

public
{ Public declarations }
end;

var
frmmain: Tfrmmain;

implementation
{$R *.dfm}

procedure TfrmMain.ClientWndProc(var Message: TMessage);

var Dc : hDC;
row,col:word;
begin

case Message.Msg of

WM_ERASEBKGND:

begin
callwindowproc(foldclientproc,clienthandle,message.Msg,message.WParam ,message.LParam);
fdrawdc:=twmerasebkgnd(message).DC;
drawtiled;
message.Result :=1;

end;

wm_vscroll,wm_hscroll:
begin
message.Result:=callwindowproc(foldclientproc,clienthandle,message.Msg ,
message.WParam,message.LParam );
invalidaterect(clienthandle,nil,true);
end;
else
message.Result:=callwindowproc(foldclientproc,clienthandle,message.Msg ,
message.WParam,message.LParam );
end;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
ClientWndProc ;//程序运行到这里说需要参数,请问是上面的过程语句那个参数啊!

end;

var Message: TMessage

我修改成这样也不行啊,请问何解啊.
procedure Tfrmmain.FormCreate(Sender: TObject);
begin
ClientWndProc(var Message: TMessage) ;
end;