Ich hab es mal umgesetzt, und es fluppt:
Delphi-Quellcode:
procedure TDirThread.Execute;
var
ll : tstrings;
begin
ll:=tstringlist.Create;
Dirliste(Muster,tstrings(ll));
//liefert alle subdirs unterhalb von muster
SendMessage(FMsgCompHandle, WM_SETTEXT, 0, Longint(PChar(ll.Text)));
//FMsgCompHandle ist das Handle vom Memo1
ll.Free;
end;
Vielen dank
K-H