Indy "Verbindung besteht bereits"

[Sir Rufo]

Versuch es mal so

Delphi-Quellcode:

function login_SMTP(Username,PW,Server : String;Port : Integer; SMTPSocket : TIdSMTP):boolean;
begin

  if SMTPSocket.Connected then
    SMTPSocket.Disconnect;

  SMTPSocket.Username := Username;
  SMTPSocket.Password := PW;
  SMTPSocket.Port := Port;
  SMTPSocket.Host := Server;
  SMTPSocket.AuthType := satDefault;
  SMTPSocket.Connect;
  Result := SMTPSocket.Connected; //beim debuggen kommt hier die Fehlermeldung
end;