String von Thread an Hauptformular schicken

[Luckie]

Das:

Delphi-Quellcode:

procedure TForm1.WMUserThreadMessage(var Message: TMessage); 
var 
  S: String; 
begin 
  SetLength(S, Message.WParam); 
  StrLCopy(PChar(S), PChar(Message.LParam), Message.WParam); 
  ShowMessage(S); 
end;

geht auch mit einem einfachen Typecast:
  ShowMessage(PChar(Message.WParam));