Pos, PosEX с отступом траблы

[bulldog5293]

сории, но так и не пойму, такой функцией

function posa(ss: String): String;
var
  B, E: Integer;
  TmpStr: String;
begin
  TmpStr := AnsiLowerCase(ss);
  B := Pos('url=', TmpStr) + 4;
  E := PosEx('"', ss, B);
  Result := Copy(ss, B, E - B);
end;

я могу распарсить

PHP код:

<META HTTP-EQUIV="REFRESH" CONTENT="0;URL=url2.php"> 


а такую нет

PHP код:

                <script type="text/javascript">
                location.replace("url2.php");
                </script>
                <noscript>
                <meta http-equiv="refresh" content="0; url=members.php">
                </noscript> 


проверил почему и мне показала отступ

function posa(ss: String): String;
var
  B, E: Integer;
  TmpStr: String;
begin
  TmpStr := AnsiLowerCase(ss);
  B := Pos('url=', TmpStr) + 4;
  E := PosEx('"', ss, B);
  Result := Copy(ss, B, E - B);
end;

procedure TFORM1.Button2Click(Sender: TObject);
var
ain: String;
вход: String;
begin
          ain := FH.Post('http://' + FUrl + 'login.php', inf);
         showmessage(ain);
         вход := poster(ain);
         showmessage(вход);
         inf.Free;
end

а как подставить сюда

StringReplace(s, #10, '', [rfReplaceAll, rfIgnoreCase]);

что бы убрать отступ не пойму

[bulldog5293]

Ну всё же, подскажите я всё возможное что придумал перебрал