Отправа idhttp get без формы

[Кольша]

program Project2;
uses
  IdHTTP,dialogs;
var
    idhttp1:  TIdHTTP;
{$R *.res}
begin
idhttp1:=Tidhttp.Create(nil);
idhttp1.HandleRedirects:=True;
idhttp1.Get('http://google.ru');
idhttp1.Free;
while true do
showmessage('Я не закрывающееся программа');
end.