Stupid problem..

Jeg har lavet nogle tekstfelter hvor man indtaster en server og en port og når man så trykker connect skal denne function udføres:

procedure TForm1.Button1Click(Sender: TObject);
        var useServerPort: Integer;
begin

  ClientSocket1.Host := useServer.text;
  ClientSocket1.Port := useServerPort;
  ClientSocket1.Active := True;

end;

Men lige gyldig hvad jeg gør får jeg min Error op om, at der ikke kunne connectes til serveren... hvad går der galt?

// Benne