unit Unit9;

interface

uses
  Classes,windows,forms,sysutils;

type
  TTestThread = class(TThread)
  private
    { Private-Deklarationen }
    Myname:String;
  protected
    procedure Execute; override;
    procedure addmain;
    public
     constructor create(Name:String);
  end;

implementation
uses unit8;
{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dürfen
  nur in einer Methode namens Synchronize aufgerufen werden, z.B.

      Synchronize(UpdateCaption);

  und UpdateCaption könnte folgendermaßen aussehen:

    procedure TTestThread.UpdateCaption;
    begin
      Form1.Caption := 'Aktualisiert in einem Thread';
    end; }

{ TTestThread }

procedure TTestThread.addmain;
begin
 Form8.addstring(myName+' '+inttostr(gettickcount));
end;

constructor TTestThread.create(Name: String);
begin
 Myname:=Name;
inherited create(false);
end;

procedure TTestThread.Execute;
begin
  { Thread-Code hier einfügen }
  while not Terminated do
   begin
// Synchronize(addmain); // <==== Führt zum Freeze
     addmain; // <==== Führt nicht zum Freeze
   end;
end;

end.

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit9, StdCtrls;

type
  TForm8 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    threads:Array[1..50]of TTestThread;
    procedure addstring(str:String);
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

{ TForm8 }

procedure TForm8.addstring(str: String);
begin
 try
  memo1.Lines.Add(str);
 except
  on exception do
   begin
     memo1.Lines.Delete(0);
     memo1.Lines.Delete(0);
     memo1.Lines.Delete(0);
     memo1.Lines.Delete(0);
     memo1.Lines.Delete(0);
   end;

 end;
end;

procedure TForm8.Button1Click(Sender: TObject);
var
  n: Integer;
begin
 for n := low(threads) to high(threads) do
  threads[n]:=TTestThread.create(inttostr(n));
 
end;

end.