Window subclass og min egen WinProc fejler

Hejsa,
Jeg eksperimenterer med at subclasse et TMemo i min egen applikation for at kunne filtrere på de messages der bliver sendt til det enkelte vindue. Jeg har følgende kode, meget simpelt:

unit GrapperTest;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    GrapperSourceWindow: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure SubClassWin(hWnd: HWND);
    procedure UnSubClassWin(hWnd: HWND);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OldWinProc: Integer;

implementation

{$R *.dfm}

procedure SendText(themessage: string);
var
  remoteWindow: HWND;
  cds: COPYDATASTRUCT;
begin
  remoteWindow := FindWindow(nil, 'Grapper');
  if remoteWindow <> 0 then begin
    ZeroMemory(@cds, sizeof(COPYDATASTRUCT));
    cds.dwData := 0;
    cds.cbData := 1 + Length(themessage);
    cds.lpData := PChar(themessage);
    SendMessage(remoteWindow, WM_COPYDATA, WPARAM(remoteWindow), LPARAM(@cds));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//  SendText('This is the text sendt');
  SubClassWin(GrapperSourceWindow.Handle);
end;

function NewWinProc(hWnd: HWND; Msg: WORD; wParam: WORD; lParam: LONGINT): LONGINT;
var
messageProcessed: boolean;
begin
  messageProcessed := false;
  if Msg = WM_SETTEXT then begin
    SendText('called set text');
    messagePRocessed := true;
  end;

  if not MessageProcessed then
      Result := CallWindowProc(Pointer(OldWinProc), hWnd,Msg,wParam,lParam)
  else
      Result := 0;

end;


procedure TForm1.SubClassWin(hWnd: HWND);
begin
  OldWinProc := SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@NewWinProc));
end;


procedure TForm1.UnSubClassWin(hWnd: HWND);
begin
  SetWindowLong(hWnd,GWL_WNDPROC,OldWinProc);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  GrapperSourceWindow.Text := GrapperSourceWindow.Text+'ABC.';
end;

end.

Problemet opstår når den løber min egen WinProc igennem (NewWinProc) det ser ud til den får lov at løbe et par gange og så går den ned. Jeg klikker på min knap, og hvis jeg flytter musen ind på mit memo kommer den ind i min egen winproc og laver en exception og stiller sig i cpu vinduet.. jeg aner ikke hvad jeg skal gøre... Arbejder normalt med  C# :-)