' , '');
valor:=FloatToStr(StrToFloat(valor)*2);
SetField(fieldRating,valor);
Page.free;
end;
procedure AnalyzePage(Address: String);
var Page:TStringList;
i:integer;
nome, url:string;
begin
PickTreeClear;
Page := TStringList.Create;
Page.Text := PostPage(Address,'search='+MovieName);
i:=0;
repeat
i:=FindLine('
',Page,i+1);
nome:=Page.GetString(i);
if (length(nome)>0) then
begin
url:=nome;
url:=TextBetween(url,'