procedure TMainForm.CHKTimer(Sender: TObject);
var
  Result,Status,Rank:string;
begin
  Http.Request.AcceptLanguage:='en-US,en;q=0.5';
  Http.Request.UserAgent:='Mozilla/5.0 (Windows NT 10.0; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0';
  Http.AllowCookies:=True;
try
  Result:=Http.Get('https://loveplanet.ru/a-myprofile/');
except
end;
  Status:=Trim(Copy(Result, Pos(PS,Result)+57, Pos('<div class="user_position_unfill">',Result)-63-Pos(PS,Result)-57));
 if Pos('You are very',Status) <> 0 then
 begin
  Rank:=StripNonNumeric(Copy(Result,Pos(RS,Result)+256, 20));
  StatusLabel.Caption:='Status: '+Status+' popular';
  RankLabel.Caption:='Rank: '+Rank;
 end
 else
 begin
   Rank:=StripNonNumeric(Copy(Result,Pos(RS,Result)+256, 20));
   StatusLabel.Caption:='Status: Not enough to rate ;)';
   RankLabel.Caption:='Rank: '+Rank;
 end;
end;