Konsolenprogramm und Multithreading

[Neutral General]

Ok kann mir das jemand bitte erklären
Ich hab mich noch nie wirklich mit Threads beschäftigt und wenn dann hab ich da nie wirklich durchgeblickt.. Also ich habs im Moment so:

Delphi-Quellcode:

type
  TMyServerThread = class(TThread)
  protected
    procedure Execute; override;
  public
    Server: TMyServerSocket;
    constructor Create(CreateSuspended: Boolean);
  end;

{ TMyServerThread }

constructor TMyServerThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  Server := TMyServerSocket.Create;
  Server.Port := 1235;
  Server.Initialize;
end;

procedure TMyServerThread.Execute;
begin
  while not Terminated do
   Application.ProcessMessages;
end;

var ST: TMyServerThread;

begin
 ST := TMyServerThread.Create(true);
 ST.Execute;
 readln;
 ST.Suspend;
 ST.Terminate;
 St.Free;
end.

So läuft der Server zwar aber mit readln is da nix.. Läuft genauso wie ohne Thread

Gruß
Neutral General