Indy "Verbindung besteht bereits"

[Informatik2012]

Ich habe folgendes Problem. Ich habe einen Mailclient programmiert. Und wenn ich versuche eine Nachricht zu versenden kommt die Fehlermeldung "Verbindung besteht bereits"

Delphi-Quellcode:

function login_SMTP(Username,PW,Server : String;Port : Integer; SMTPSocket : TIdSMTP):boolean;
begin
   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;

und ich weiß nicht was da los ist. Kann mir da was jemand sagen?
im anhang ist die gesamte unit und die in der sie verwendet wird.

[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;

[Informatik2012]

Ja jetzt ist der Fehler weg danke :D
aber jetzt kommt irgendein "bad sequence of commands" - Fehler.

Delphi-Quellcode:

try SMTPSocket.Send(IdNachricht)
finally   logoff_SMTP(SMTPSocket); 
end;

in der SMTP Unit.

[Sir Rufo]

Neue Frage -> neues Thema

und eine Suche bei Google bewirkt Wunder [GOOGLE]Indy "bad sequence of commands"[/GOOGLE]