consulta sobre MAPI_TLB

[Enan0]

Hola amigos. Bueno sigo trabajando con el Exchange y la dichosa mapi_TLB. Bueno mi problema en el dia de la fecha es el siguiente. hace ya varios dias que estoy intentado agregar un nuevo mensaje! en exchange!, no puedo hacerlo
Alguien a utilizado esta API. ya que el error que meda es el siguiente!
en la funcion
Messages.add

Código Delphi [-]
     function Add(Subject: OleVariant; Text: OleVariant; Type_: OleVariant; Importance: OleVariant): OleVariant; dispid 100;

la cual requiere solo 4 parametros y siempre que le pongo lo que le pongo.. me da el mismo error!
"numero de parametros no validos"
parte del codigo

 
Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 Var login :Session;
 algo,a:variant;
 AlgoOle:olevariant;
 i,b:integer;
 F:Folder;
 msg:mapi_tlb.message;
 begin
    login:=CoSession.Create;
 //   login.
 //   algo:=login.Session;
    a:='server'+#10+'ID'; //remplazar server (por nombre o IP del server exchange, y ID por nombre de usuario
 
    login.Logon('','',false,true,0,false,a);
  f:=idispatch(login.GetDefaultFolder(0)) as mapi_tlb.folder;
    algo:=f.Messages.add('','','IMP.task',2);
    msg:=idispatch(algo) as mapi_tlb.message;
 
 with msg do
   begin
 
    Subject := 'Hecho a mano';
    Importance := CdoNormal;
    //Sensitivity := Task.Confidential;
    Update(True,True);
   end;
 end;

[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