ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure RYACheck;
var
  URLPosition: TFWURLPosition;
begin
  URLPosition := TFWURLPosition.Create;
  try
    URLPosition.GetURLPosition(
      Edit1.Text, [ucAlexa, ucGoogle, ucYandex]);
    Label1.Caption := 'Tic :: ' +  IntToStr(URLPosition.YandexTIC);
    Label2.Caption := 'PR :: ' +  IntToStr(URLPosition.GooglePR);
    Label3.Caption := 'AlexaRank :: ' +  IntToStr(URLPosition.AlexaRank);
  finally
    URLPosition.Free;
  end;   
end;