In Thread Zeile(n) zu Memo bzw. RichEdit hinzufügen

[Apollonius]

Am einfachsten ist es wohl so:

Delphi-Quellcode:

type TMyClass = class
  procedure Method;
end;

procedure TMyClass.Method;
var i:integer;
begin
  //nicht auf Self zugreifen
  for i:= 1 to 100 do form1.memo1.lines.add(inttostr(i));
end;

procedure Foo;
begin
  TThread.Synchronize(nil, TMyClass(nil).Method);
end;