Problem mit INDY, SMTP und SSL

[fwsp]

hallo,

ich versuche per imap mit ssl eine nachricht zu verschicken. leider bekomm ich immer eine fehlermeldung, die ich nicht zuordnen kann. hat jmd eine idee was da falsch läuft?

danke.

Code:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt gFTP.exe ist eine Exception der Klasse EIdOSSLConnectError mit der Meldung 'Error connecting with SSL.' aufgetreten.
---------------------------
Anhalten   Fortsetzen   Hilfe   
---------------------------

Delphi-Quellcode:

constructor TgMailFTP.Create(AUsername, APassword: string;
  AStringGrid: TStringGrid; AComboBox: TComboBox);
begin

  FsmtpHost := 'smtp.gmail.com';
  FUsername := AUsername;
  FPassword := APassword;

  FsmtpPort := 587;

  Fsmtp := TIdSMTP.Create;
  Fsmtp.Host := FsmtpHost;
  Fsmtp.Username := FUsername;
  Fsmtp.Password := FPassword;
  Fsmtp.Port := FsmtpPort;
  Fsmtp.AuthType := atDefault;
  Fsmtp.MailAgent := 'Thunderbird 2.0.0.9 (Windows/20071031)';

  Fssl := TIdSSLIOHandlerSocketOpenSSL.Create;
  Fssl.ConnectTimeout := 15000;
  Fssl.SSLOptions.Method := sslvTLSv1;
  Fssl.SSLOptions.Mode := sslmClient; 
  Fssl.SSLOptions.VerifyMode := [];
  Fssl.SSLOptions.VerifyDepth := 0;

  Fsmtp.IOHandler := FSSL;
  Fsmtp.UseTLS := utUseImplicitTLS;
end;

Delphi-Quellcode:

procedure TgMailFTP.New(AStr: string; AIsFile: Boolean = True);
var
  Mail: TIdMessage;
begin
  Fssl.Host := FsmtpHost;
  Fssl.Port := FsmtpPort;

  Mail := TIdMessage.Create;
  Mail.From.Address := FUsername;
  Mail.Recipients.EMailAddresses := FUsername;
  Mail.Subject := 'gFTP:' + FPath + AStr + '/|-1';

  try
    try
      Fsmtp.Connect;
      Fsmtp.Send(Mail); //Hier kommt der Fehler
    except
    end;
  finally
    if Fsmtp.Connected then
      Fsmtp.Disconnect;
    Mail.Free;
  end;
end;