Foros Club Delphi - consulta sobre MAPI

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:

 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;