Tastatur-Hook mit Hilfe Assarbads Tut

[Dichter]

oki jetzt läufts einigermassen...
nur wenn ich jetzt das memo1 auf der form1 ansprechen will, also ein char oder halt wie bei dir im prog (was allerdings auskommentiert ist) :

Code:

 function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
  stdcall;
var
  letter: Cardinal;
1begin
  case nCode < 0 of
    FALSE:
      if (lParam and $80000000) > 0 then
      begin
->      //letter := MapVirtualKey(wParam,3);  <-
        //write2textfile(chr(letter));
        case wParam of
            $20, $30..$39, $41..$5A: write2textfile(chr(wParam));
          else
            if wParam <> $A then
            write2textfile(frmt(' #$%2.2X ', [pointer(wParam)]));
        end;
      end;
  end;
  Result := CallNextHookEx(KBHookHandle, nCode, wParam, lParam);
end;

ich könnt ja 'letter' an die form weitergeben und das dort mit mapvirtualkey() und chr() "auswerten" lassen, aber wie gebe ich nun diese variable an das prog weiter?