program sendRequest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IniFiles,
  Classes,
  SOAPHTTPTrans;
type
  TMyThread = class (TThread)
  protected
    procedure Execute; override;
  end;

procedure TMyThread.execute;
var
  Ini: TIniFile;
  host, xml: string;
  request: TStringList;
  Stream: TMemoryStream;
  soap: THTTPReqResp;
begin
  xml := 'test.xml';
  host := 'http://test.com';
  request := TStringList.Create;
  request.LoadFromFile(xml);
  Writeln(datetimetostr(now) + ' - Thread started!');
  Stream := TMemoryStream.Create;
  soap := THTTPReqResp.Create(nil);
  soap.Name := 'soap' + IntToStr(Random(10000));
  soap.URL := host;
  soap.InvokeOptions := [soIgnoreInvalidCerts,soAutoCheckAccessPointViaUDDI];
  soap.UseUTF8InHeader := True;
  while True do begin
    soap.Execute(request.Text, Stream);
    Writeln(datetimetostr(now) + ' - Request has been sent!');
  end;
  Stream.Free;
  soap.Free;
end;

var
  MyThread: TMyThread;
  i: Integer;
begin
  for i := 0 to 100 do begin
	  MyThread := TMyThread.Create(false);
    with MyThread do begin
      FreeOnTerminate := false;
      Resume;
    end;
  end;
  Readln;
end.