Wysyłanie faksu w sieci LAN

Witam, Proszę o pomoc i przykład kodu wysyłającego faks z sieci LAN na sieć LAN. Założyłem konto na jednym z serwisów które umożliwiają odbiór faksów w internecie (przeglądarka) lecz mimo prób nie udaje mi się wysłać faksu z załącznikiem pdf mimo, że kod zwraca pozytywna odpowiedź wysyłki (JOB ID). Kod poniżej:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  JobIDs: OleVariant;
  FaxServer: OleVariant;
  FaxDocument: OleVariant;
begin
  try
    FaxServer := CreateOleObject('FaxComEx.FaxServer');
    FaxServer.Connect('');
    FaxDocument := CreateOleObject('FaxComEx.FaxDocument');
    FaxDocument.Body := 'c:\Regulamin.pdf';
    FaxDocument.DocumentName := 'Document name';
    FaxDocument.Recipients.Add('123768848', 'Anna');
    FaxDocument.Sender.Name := 'Anna';
    FaxDocument.Sender.BillingCode := '23A54';
    FaxDocument.Sender.Department := 'Ksiegowosc';
    FaxDocument.Sender.FaxNumber := '123768848';
    JobIDs := FaxDocument.ConnectedSubmit(FaxServer);

    for I := VarArrayLowBound(JobIDs, 1) to VarArrayHighBound(JobIDs, 1) do
      ShowMessage('Job ID: ' + VarArrayGet(JobIDs, [I]));
  except
    on E: EOleSysError do
      ShowMessage(
        Format('Sending of the fax failed! %s [%d]', [E.Message, E.ErrorCode])
      );
  end;
end;