Multithreading komischer Fehler

[SyntaxXx]

Hallo zusammen,
ich habe leider keine passendere Überschrift für das Thema gefunden, da ich sonst den kompletten Fehler hätte hinschreiben müssen.
Darum verzeiht mir.


Es geht darum, dass ich mich gerade mit Threads auseinander setze.
Nur verstehe ich den Ablauf nicht so ganz.
Besser gesagt, das Ergebnis.


Hier erst einmal mein kompletter Code.
Und bitte verzeicht die Namensgebung diverser Dinge.
Diente nur als Test.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Classes;

type
TIdThread = class(TThread)
  private
    tText: String;
  protected
    procedure Execute; override;
  public
    procedure SetText(text: String); virtual;
end;

var
  i: Integer;
  maxThreads: Integer;
  Thread: TIdThread;

procedure TIdThread.SetText(text: String);
begin
  tText := text;
end;

procedure TIdThread.Execute;
begin
  Writeln(tText);
end;

begin
  try
    Write('Wie viele Threads sollen erzeugt weden: ');
    Readln(maxThreads);

    for i := 1 to maxThreads do
    begin
      Thread := TIdThread.Create();
      Thread.FreeOnTerminate := true;
      Thread.SetText('Ich bin Thread ' + IntToStr(i));
      Thread.Execute;
    end;
    Readln;
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Wenn ich dieses Gebilde nun ausführe und die Zahl 1 eingebe, dann erhalte ich komischerweise folgendes als Ergebnis:
Ich bin Thread 1
Ich bin Thread 1
Ich bin Thread 1

Die Ausgabe erscheint also 3 mal.
Nur die Frage ist, wieso ???


Desweiteren fürde ich interessieren, warum ich der Execute-Prozedur keine Parameter mitgeben kann?
Ich musste ich es über einen Setter machen.


Vielen Dank schonmal.