[non VCL] - Fehler bei WM_GETTEXT

[Rastaman]

Nabend.
Also ich habe einen Dialog in einer Resource, den ich dann lade.
Inhalt: Edit, Button, Listbox.
Jetzt war mein eigentliches Ziel mit der Listbox experimentieren, allerdings wurde daraus nix, da ich den Text aus dem Edit irgendwie nicht bekomme. Die ID vom Edit ist 102, und obwohl der Code keinen Sinn macht, funktioniert er nicht. Das Edit ist danach leer

Delphi-Quellcode:

function DlgFunc(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
                 lParam: LPARAM): Bool; stdcall;
var
  s: PAnsiChar;
begin
  Result := True;
  if uMsg = WM_COMMAND then
  begin
    if HiWord(wParam) = BN_CLICKED then
      if LoWord(wParam) = 3 then
      begin
        edit := GetDlgItem(hwnd, 102);
        SendMessage(edit, WM_GETTEXT, 0, Integer(@s));
        SendMessage(edit, WM_SETTEXT, 0, Integer(@s));
      end;
  end
  else
    Result := False;
end;

Nix is ok - non VCL oh weh