Sende fax til Faxserver

Hej.
Følgende procedure skal kunne sende en fax fra min PC til en server hvor der ligger et delt faxprinter.
For at undgå at skulle indtaste navn og faxnummer vil jeg oprette denne procedure i mit program.
Hvis programmet ligger på serveren (SERVER01) virker alt fint, ComPuterName = SERVER01
Men når jeg vil sende fra min PC (BRUGER01) med ComPuterName = BRUGER01
får jeg fejlmelding Handlen er ikke gyldig
Hvis jeg ændre
  FaxServer.Connect(ComPuterName);
til
  FaxServer.Connect('');
  FaxServer.Connect(ComPuterName);med ComPuterName = BRUGER01
sender den men den vælger min lokale faxprinter og ikke netværkets faxprinter
Det ser ud som om at programmet ikke kan finde ud af Connect til faxen på SERVER01
Jeg har også forsøgt med \\SERVER01 det virker heller ikke
Hvad er der galt
PÅ forhånd tak
Kaj.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
ComPuterName, DocFile, FaxNumber, Recipient: String;
FaxServer: Variant;
FaxDoc: Variant;
JobId: Integer;
begin
  JobID        := 0;
  FaxNumber    := Edit1.Text;    //Faxmummer
  DocFile      := Edit2.Text;    //Filnavn på dokument der skal sendes som fax
  Recipient    := Edit2.Text;    //Navn på dokument
  ComPuterName := Edit4.Text;    //Navn på computer hvor faxprogrammet er indtalleret

  FaxServer := CreateOleObject('FaxServer.FaxServer');

  FaxServer.Connect(ComPuterName);
  FaxServer.ServerCoverpage := 0;
  FaxDoc := FaxServer.CreateDocument(DocFile);
  FaxDoc.FaxNumber    := FaxNumber;
  FaxDoc.RecipientName := Recipient;
  FaxDoc.DisplayName  := 'Fax Server';

  JobID := FaxDoc.Send;

  FaxDoc := Null;
  FaxServer.Disconnect;
  FaxServer := Null;
end;