Не выводится текст парсинга

[bulldog5293]

Доброго времини суток, столкнулся со страной ситлуацией, конектюсь к сайту и пробую вывести текст полей авторизации в мемо, но они не выводятся, вот код

var
i:integer;
s1,cis1:string;
 begin
       i := (Pos('<form action=login.php method=POST>', S1.datastring)+12);
       cis1 := Copy(S1.datastring, i, PosEx('</form>', S1.datastring, i) - i);
          BBUX.memo1.text:= cis1;
end;

ИЗВеНЯЮСЬ, ВОПРОС СНЯТ