Konsol/TCP

Jeg er ved at lave en TCP server...Programmet er et konsolprogram da det senere skal bruges under linux.

Jeg har prøvet at bruger Indy's idTcpServer til det, men lige så snart jeg prøver at sætte fx porten (eller andre parametre) i runtime crasher programmet uden en fejlmeddelse...hvad er der galt?

program fserver;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdTCPServer,
  IdThreadMgrDefault,
  IdStatus, Sockets;

var
TCP : TIdTCPServer;
ITMgr : TIdThreadMgrDefault;
port : integer;
sendbuffer, cmdline : string;

{procedure TCPConnect(AThread: TIdPeerThread);
begin
writeLn('Client Connected...');
readLn;
end;

procedure TCPDisconnect(AThread: TIdPeerThread);
begin
writeLn('Client Disconnected...');
readLn;
end;

procedure TCPSExecute(AThread: TIdPeerThread);
begin
  begin
    writeLn(AThread.Connection.readLn(#0));
    AThread.Connection.writeLn(sendbuffer+#0);
  end;
end;

procedure TCPStatus(axSender: TObject;
  const axStatus: TIdStatus; const asStatusText: String);
begin
writeLn(asStatusText);
end;

procedure readline(line: String);
begin
if (line = 'quit') then
begin
exit;
end;
readLn(cmdLine);
readline(cmdLine);
end;

begin
WriteLn('-------------------------------');
WriteLn('Server');
WriteLn('-------------------------------');
WriteLn('');
Write('Server Port: ');
Readln(port);
TCP.DefaultPort := port;
TCP.TerminateWaitTime := 5000;
TCP.Active := true;
WriteLn('');
WriteLn('Server Running');
readLn(cmdLine);
readline('cmdline');
end.