idTCPServer in Konsole: Konsole soll nicht schließen

[Chris1986]

Noch ne Frage:
bei writeln('Hallo DP . . .') schließt sich die Konsole nicht. Wenn ich Console.TCPServer.active := true aufrufe, wird die Konsole sofort geschlossen. Woran liegt das?

EDIT: Der Quelltext:

Delphi-Quellcode:

type 
  TConsole = class(TObject)
    TCPServer: TIdTCPServer;
   constructor create;
  private
    procedure ServerConnect(AThread: TidPeerThread);
  public
  end;

constructor TConsole.Create;
begin
inherited Create;
  TCPserver := TIdTCPServer.Create(TCPServer);
  with TCPServer do
  begin
    OnConnect := ServerConnect;
  end;
end;

var
  Console: TConsole;
  ShutDownServer: boolean;

//Server Events-----------------------------------------------------------------
procedure TConsole.ServerConnect(AThread: TidPeerThread);
begin
   with AThread as TIdPeerThread do
   begin
      // hier kannst du z.B. den Namen und checked abfragen...
      writeln(AThread.Connection.LocalName);
   end;
end;
//Ende: Server Events-----------------------------------------------------------

begin
  writeln('Herzlich Willkommen.');
  Console.TCPServer.DefaultPort := 300;
  Console.TCPServer.active := true;// <= Konsolenfenster schließt sich im Anschluss
  while not (ShutDownServer{ or Eof(Input)}) do Sleep(50);
end.

Danke für eure Hilfe

Gruß
Christian