Enviar Fax a traves de IFaxServer

[mgomez2]

Hola, estoy intentando enviar faxes a traves de la interface COM de windows, con un codigo como este:

Código Delphi [-]
uses FAXCOMEXLib_TLB; 
procedure TForm1.BitBtn1Click(Sender: TObject); 
var   
   vlserver: IFaxServer;   
   vlDocument : IFaxDocument;
begin
     vlserver := CoFaxServer.Create;
     vlDocument := CoFaxDocument.Create;
     vlserver.Connect('');
     vlDocument.Body := 'D:\prueba.pdf';
     vlDocument.DocumentName := 'Prueba';
     vlDocument.Priority:=fptHIGH;
     vlDocument.Recipients.Add('937111111','Nombre');
     vlDocument.AttachFaxToReceipt := True;
     vlDocument.CoverPageType := fcptNONE;
     vlDocument.ScheduleType:=fstNOW;
     vlDocument.ReceiptType:=frtNONE;
     vlDocument.Submit('');
    vlserver.Disconnect;
end;

El caso es que funciona, lo envia, pero me deja abierto el acrobat con el fichero que ha enviado.
La idea es automatizar una serie de envios, y claro, no es plan de que se queden abiertas 100 instancias del Acrobat...

Alguien puede darme una idea sobre como arreglar esto, y que el acrobat no se quede abierto?

Gracias !!