Problem mit Buffer in WriteFile (Hook)

[core]

Hallo!

Habe folgendes Problem:

Ich möchte die WriteFile Funktion aus der kernel32.dll hooken.

Delphi-Quellcode:

function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD;
  var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;

Das hat auch soweit geklappt (madCodeHook).
Nun möchte ich mit SendMessage den Inhalt der Konstante "Buffer" an mein Programm übermitteln. Wie bekomme ich den nun diese Konstante z.B. in einen ShortString. "Buffer" müsste eigentlich ein char-Array sein. Wenn ich nämlich den Buffer als Char sende kommt zwar etwas an, aber immer nur der erste Buchstabe.

Ich hoffe hier kann mir jemand weiterhelfen. Hab heute den ganzen Tag probiert, bekomme aber immer nur einen Buchstaben

mfg