Falscher Port bei WinSock-Verbindungsaufbau

[Chewie]

Mit folgendem Code baue ich eine Verbindung auf:

Delphi-Quellcode:

Sock := Socket(AF_INET,SOCK_STREAM,0);
ZeroMemory(@SockAddrIn,SizeOf(TSockAddr));
if Sock <> INVALID_SOCKET then
begin
  with SockAddrIn do
  begin
    sin_family := AF_INET;
    sin_port := htons(25);
    sin_addr.S_addr := inet_addr(@Adress[1]);
  end;
  if connect(Sock,SockAddrIn,SizeOf(SockAddr_In)) = 0 then
  begin
    Write('Ein ServerSocket wurde gefunden');
    ShutDown(Sock,2);
  end
  else
  begin
    Write('Es wurde kein Server gefunden. Fehler ',WSAGetLastError);
  end;

Leider sagt mir meine Firewall, ich würde zu Port 1032 connecten und nicht zu Port 25. Mir fällt aber leider keine Idee ein, dies zu überprüfen. Hat da einer eine Idee?