HookHandle, nCode, wParam, lParam bei afxCodeHook

[MCQ]

Zur erläuterung poste ich hier mal den Source:

Delphi-Quellcode:

library DateLog;

uses
  SysUtils,
  Dateutils,
  windows,
  afxCodeHook;

{$R *.res}
var
  GetRealTime:procedure(orgdate:_SYSTEMTIME);stdcall;



procedure LogTime(orgdate:_SYSTEMTIME)stdcall;
begin
// Hier werden sämtliche Zeitanfragen protokoliert
MessageBox(0,'Das aktuelle Datum wird abgefragt.','DateLog',MB_ICONINFORMATION);
{ Hier besteht mein Problem. Die Test-Message wurde zwar ausgegeben, allerdings
  gibt die Testanwendung als Zeit eine 0 zurück. Es fehlt also die übergabe der Zeit.
  Doch wie kann ich das bewerkstelligen ?
}
end;

Procedure SetHook();
begin
 HookCode('kernel32','GetLocalTime',@LogTime,@GLogTime);
 HookCode('kernel32','GetSystemTime',@LogTime,@LogTime);
end;


begin
SetHook();
end.