idHTTP刚冻结

Question

我有一个按钮和一个tmemo，我希望当我点击按钮时，它会将一个网址的结果放入备忘录中。但它冻结了你可以看到原因的任何理由吗？

procedure TForm1.sendCommandClick(Sender: TObject);
var
  site : string;
begin
Memo1.Lines.Add(getContent('http://something.com'));
end;

function TForm1.getContent(url: String): String;
var
http : TIdHTTP;
begin
 http := TIdHTTP.Create(nil);
   try
     http.HandleRedirects := true;
     Result := http.Get(url);

   finally
     http.Free;
   end;
end;
end.