Mail (TIDSMTP) aus Serviceanwendung funkt nicht :(

[Cyberbob_at_tot]

Hallo zusammen,
ich schreibe gerade eine Serviceanwendung. Mein Problem ist gerade, das er mir keine Mails verschickt. Bekomme da eine EAccessViolation bei "with IdMessage do begin". Versteh leider nicht wieso, vieleicht könnt ihr mir da weiterhelfen. Habe in die Serviceanwendung TIDSMTP,TIdMessage und IdAttachmentFile eigefügt.

Code:

procedure TService1.SendMailtoAdmin;
var fehler: boolean;
begin
  fehler := false;
  //Mail vorbereiten
    with IdMessage do begin
      Body.Text := '';
    // Name des Absenders
      From.Text := '******************';
    //E-Mail-Adressen der Empfänger (durch Komma getrennt)
      Recipients.EMailAddresses := '*******************';
    //Betreff (Subject) der Mail
      Subject := 'Fehler';
    //Priorität
      Priority := mpNormal;
    //E-Mail-Adressen der Kopie-Empfänger (CC=Carbon Copy)
      CCList.EMailAddresses := '';
    //Content Typ
      ContentType := 'multipart/mixed';
    end;
  //Anhang
    TIdAttachmentfile.Create(idmessage.MessageParts, LOGFILE);
  //Authentifizierung nötig?
    SMTP.AuthType := atDefault;
  //Benutzerdaten für Authentifizierung
    SMTP.Username := '**************';
    SMTP.Password := '**************';
  //Server-Daten
    SMTP.Host := '***********';
    SMTP.Port := 25;
    SMTP.Connect;
    SMTP.Send(idMessage);
    SMTP.Disconnect;
    //Mail verschicken
  {except
    writelog('Fehler bei SMTP Admin Verbindung');
    fehler := true;
  end;
  try
    if not fehler then SMTP.Send(IdMessage);
  finally
    if not fehler then
    begin
      SMTP.Disconnect;
      writelog('AdminMail versendet');
    end;
  end;}
end;

Danke für jegliche Hilfe.

MFG

Cyberbob