Unzulässige funktion

[ATSV]

hi
ich habe folgendes "problem": ich möchte über delphi outlook ansteuern um eine email zu verschicken, dass ist auch kein problem und funktioniert auch, aber ich erhalte immer die fehlermeldung "Unzulässige Funktion" aber das programm macht genau das was es soll. kann mir vielleicht jemand erklären warum die exception kommt und warum trotzdem alles funktioniert?
hier ncoh der code

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var myOutlook, mailitem: Variant;
begin
  try
    myOutlook := CreateOleObject('Outlook.Application');
    mailitem := myOutlook.CreateItem(olMailItem);
    mailitem.Subject := Edit7.Text;
    mailitem.To := Edit6.Text;
    mailitem.Body := Memo2.Text;
    mailitem.Display; //Hier meckert er
  except
    on EOleSysError do begin
      raise;
    end;
  end;
  Edit6.Text := '';
  Edit7.Text := '';
  Memo2.Text := '';
end;