Thread in neuer Form funktioniert nicht

[Zodi]

Hi Delphianer.

Ich habe 2 Fenster Form1 und Form2.
In Form2 ist ein Threads der von 0 bis 3000 zählt und die werte in ein Memo schreibt.
Dies funktioniert auch. Aber sobald ich das fenster in Form1 erzeuge und anzeige funktioniert es nicht mehr.

Form2 mit dem Thread

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

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

end;

var
  Form2: TForm2;
  tt: ParseThread;

implementation

{$R *.dfm}

procedure ParseThread.Execute;
begin
 while not Terminated do
   begin
     inc(i);

     form2.Memo1.Lines.Add(inttostr(i));

   end;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 tt := ParseThread.Create;
 tt.FreeOnTerminate := true;
end;

end.

Form1 der das Form2 Fenster beliebig oft erzeugen kann in dem der Thread werte abarbeitet.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
    Form2 := TForm2.Create(nil);
    Form2.Show;
end;

Weiss jemand woran das liegen kann das der Thread in Form2 nicht mehr funktioniert sobald die Form erzeugt wird.

Grüsse Zodi