[Enan0]

Bueno he podido solucionar el inconveniente que tenia.
lo dejo comentado por si alguien se toma alguna vez con el mismo problema!!!

 
Código Delphi [-]
    login:=CoSession.Create;
 //   login.
 //   algo:=login.Session;
    a:='SERVER'+#10+'ID'; //remplazar server e ID por los valores respectivos a cada caso
 
    login.Logon('','',false,true,0,false,a);
  f:=idispatch(login.GetDefaultFolder(0)) as mapi_tlb.folder;
    algo:=f.Messages.add();
    algo.subject:='Enan0';
    algo.Update(True,True);

La solucion fue trabajar directamente con el valor del Variant creado