Немного видоизменил:
Код:
var
s : TServerSocket; // - сделал глобальной.
begin
AddLog('Starting server...');
s:=TServerSocket.Create(nil);
s.Port:=21734;
s.Active:=True;
AddLog('Server started');
....
end; Ругалась именно из-за DataModule. С nilом работает стабильно. Дата модуль вообще убрал, оставил только отдельный Юнит.