XE8 Зависает форма при получение данных

[delphiname]

Здравствуйте при получение данных из сайта google зависает форма =(
как сделать так чтобы не зависал????

procedure Test(Sender: TObject);
var
  Cli: TNetHTTPClient;
begin
  Cli:=TNetHTTPClient.Create(Nil);
  try
    html:=Cli.Get('https://www.google.com').ContentAsString;
  finally
    Cli.Free;
  end;
end;

[northener]

В вашем посте не хватает одной строчки. А именно
"Использовать потоки не предлагать!"
В этом случае получилось бы почти точное соответствие с окончанием саги о X, Y и Z...
Новичок уходит на другой форум, где задаёт вопрос: "Мне нужен X! Как мне сделать Y? Использовать Z не предлагать!!!!!!"