Thread in neuer Form funktioniert nicht

[Andreas L.]

Du musst Synchronize aufrufen um vom Thread auf die VCL-Controls zuzugreifen.

Delphi-Quellcode:

type
  ParseThread = class(TThread)
  private
    { Private-Deklarationen }
    i:integer;
  protected
    procedure DoRefreshMemo;
    procedure Execute; override;
   public
    { Public-Deklarationen }

end;

procedure ParseThread.DoRefreshMemo;
begin
  form2.Memo1.Lines.Add(inttostr(i));
end;

procedure ParseThread.Execute;
begin
 while not Terminated do
   begin
     inc(i);
     Self.Synchronize(DoRefreshMemo);
   end;
end;