Create mail message in Outlook
Var
mail,mailitem;
mail:=OutlookApplication.createItem(olMailItem);
var Message,outlook:Variant;
begin
outlook:=CreateOleObject('Outlook.Application');
message:=Outlook.createItem(olMailItem);
message.display;
end;