нужна помощь,составление URL

[helpforyou]

Всем привет, нужна помощь в составление URL. (Delphi 7)
Сама функция

PHP код:

function MakeURL(S: String): String;
var
  _Domen, _Hvost: String;
  http, https, www: boolean;
  i: integer;
  T: String;
begin
  http := Pos('http://', S) <> 0;
  https := Pos('https://', S) <> 0;
  www := Pos('www.', S) <> 0;
  _Domen := S;

  _Domen := StringReplace(_Domen, 'http://', '', []);
  _Domen := StringReplace(_Domen, 'https://', '', []);
  _Domen := StringReplace(_Domen, 'www.', '', []);

  for i := Length(_Domen) downto 1 do begin
    if (_Domen[i] = '/') or (_Domen[i] = '?') then begin
      _Domen := Trim(LeftStr(_Domen, i -1));
      Break;
    end;
  end;

  _Hvost := Trim(RightStr(OldURL, Length(S) - Pos(_Domen, OldURL) - Length(_Domen) + 2));

    //  MessageBox(0, PChar(_Domen), '', 0);
    //MessageBox(0, PChar(_Hvost), '', 0);

  Result := '';
  if http then Result := Result + 'http://';
  if https then Result := Result + 'https://';
  if www then Result := Result + 'www.';

  Result := Result + _Domen + _Hvost;

 // MessageBox(0, PChar(Result), '', 0);
 // OldURL
end; 


Вставляем так: energy-sunbags.ch/test/test.php?file=xml/xml.xml
На выходе получаем так: http://www.elurragold.comml.xml


Понимаю что ошибка - _Hvost := Trim(RightStr(OldURL, Length(S) - Pos(_Domen, OldURL) - Length(_Domen) + 2));
сдесь, увеличив он берет весь URL а не то что надо(конец /test/test.php?file=xml/xml.xml)
HELP :-)