string mit postmessage übermitteln?

[p80286]

Da ich vor dem gleiche Problem, kapere ich den Thread einmal.
z.Zt. habe ich folgenden Code (auf das wesentliche gekürzt)

Delphi-Quellcode:

Unit1

  cFILEDELETION   :string= 'Deletion of Files'+#0;
  cGETSOURCEFILES :string= 'get source Files'+#0;
  cGETTARGETFILES :string= 'get target Files'+#0;

Unit2
...
sendmessage(FReceiver,CM_Start2,0,longint(pchar(CGETSOURCEFILES)));
....

UnitMain

procedure TForm1.CMStart2(var msg:TMessage);
var
  mm : pchar;
begin
  mm:=pchar(msg.LParamLo);
  self.StatusBar1.Panels[3].Text:=mm; {---- hier macht es puff mit einer Zugriffsverletzung}
end;

Ich könnte in msg.LParamLo natürlich auch den Index für ein Array of TextMessages übergeben, aber soviel Aufwand für z.Zt 6 Meldungen?

Was ist da nicht in Ordnung?
(sowohl postmessage als auch sendmessage funktionieren nicht!)

Gruß
K-H