In Delphi gibt es die Standard-Action
TSendMail in
Unit Vcl.ExtActions. Vielleicht kannst du die ja direkt verwenden.
Ich würde dir ja auch vorschlagen, den Source zu analysieren, aber das wird mit einer Starter eventuell schwierig.
Nur so am Rande: Der gezeigte Code kann nicht vollständig sein, da die MapiMessage nirgendwo verarbeitet wird.