Activex OLE Delphi

Title: How to read a senders address for MailItem (MS Outlook)
var
s: string;
objCDO: OLEVariant;
begin
objCDO := CreateOLEObject('MAPI.Session');
objCDO.Logon('', '', False, False);
objMsg := objCDO.GetMessage(itemOL.EntryID, itemOL.Parent.StoreID);
s := objMsg.Sender.Address;
ShowMessage(s);
objMsg := Unassigned;
objCDO := Unassigned;
end
{ where itemOL is a MailItem which contain a SenderName but doesnt contain a SenderAddress }