[NumLock]

Код:

var
  ServerSocket: TServerSocket;
begin
  ServerSocket:=TServerSocket.Create(nil);
  ServerSocket.Port:=777;
  // ..
end;