[PhoeniX]

Немного видоизменил:

Код:

var
 s : TServerSocket;  // - сделал глобальной.
begin
  AddLog('Starting server...');
  s:=TServerSocket.Create(nil);
  s.Port:=21734;
  s.Active:=True;
  AddLog('Server started');
....
end;

Ругалась именно из-за DataModule. С nilом работает стабильно. Дата модуль вообще убрал, оставил только отдельный Юнит.