Outlook öffnen und Signatur an Email hängen (Delphi2010)

[Mrs.Greek]

Guten Abend,
Ich habe folgenden Quelltext, den ich schon mit einigen hier im Forum abgegliechen habe, in der Hoffnung, dass es endlich funktioniert, aber Fehlanzeige...

Delphi-Quellcode:

procedure TOutlook.EmailErstellen;
Var OutlookApp: Variant;
    Mailitem,ObjectInspector,Editor : OleVariant;
begin
   try
     OutlookApp := GetActiveOleObject('Outlook.Application');      // hier erscheint eine Fehlermeldung 'Vorgang Abgebrochen' und die except-Anweisung wird nicht ausgeführt
   except
     OutlookApp := CreateOleObject('Outlook.Application');
   end; 
      try
         Mailitem := OutlookApp.CreateItem(olMailItem);
         try
            Mail.subject := sBetreff;
            Mail.Recipients.Add(sEmpfaenger);
            Mail.Body := sNachricht;
            ObjectInspector := Mail.Getinspector;
            Editor := ObjectInspector.Editor;
            Editor.Characters.item(1).InsertBefore(Mail.Body);    //der Text steht in der Email, allerdings ohne Signatur
            Mail.send;
         finally
            Mail := Unassigned;
         end;
      finally
         OutlookApp := Unassigned;
      end;
end;

Lasse ich mir die E-Mail allerdings anzeigen, statt sie direkt zu verschicken (Mail.Display), ist die Signatur vorhanden...
Ich weiß einfach nicht weiter und hoffe ihr könnt mir helfen!

Vielen Dank im Vorraus.

E: Gelöst, lasse mir die Mail vorher doch anzeigen und der Benutzer verschickt die Mail