Mailversand mit Indy geht nur einmal

[HPB]

Guten Tag Delphianer,
mit nachfolgender Procedure kann ich einmal eine Mail versenden. Ein erneutes Aufrufen der Procedure erzeugt eine Fehlermeldung (Fehler bei der Verbindung).
wenn ich den try except-Block auskommentiere wird nur ein Fehlerbildschirm ohne Angabe des Fehlers angezeigt.

Delphi-Quellcode:

procedure TMSFmDruckeUndExport.MailmitIndy;
var
 pBody: TStringList;
 pAttachment: TIdAttachmentFile;
begin
  pBody := TStringList.Create;
  pBody.Clear;
  pBody.Add('Hallo');
 
  idsmtp1.Host := 'XXXXXX.XXXXXXX.de';
  idsmtp1.Username := '[e-mail]';
  idsmtp1.Password := 'XXXXXXXX';
  idsmtp1.Port := 25;

  idmsg1.Clear;
  idmsg1.ClearBody;
  idmsg1.ClearHeader;
  idmsg1.From.Text := '[e-mail]';
  idmsg1.Sender.Text := 'ich bins';
  idmsg1.Recipients.EMailAddresses := '[e-mail]';
  idmsg1.Subject := 'testmail';
  idmsg1.Body    := pBody;
  pAttachment := TIdAttachmentFile.Create(idmsg1.MessageParts,
                                                         'd:\erntetag2012.jpg');
 
  try
   idsmtp1.Connect;
   idsmtp1.Send(idmsg1);
   idsmtp1.Disconnect();
   pBody.Free;
   pAttachment.Free; 
  except
   ShowMessage('Fehler bei der Verbindung!');
   pBody.Free;
   pAttachment.Free;
  end;
end;

Wo kann nur der Fehler liegen?
Vielen Dank im voraus für die Hilfe.
HPB