Program beenden/ weiter ausführen (leicht)

[dominikkv]

Delphi-Quellcode:

uses
  TIdHTTP;

procedure TForm1.CreateForm(Sender: TObject);
var
  MeinText: String;
begin
  with TIdHTTP.Create do
    try
      MeinText := Get('http://www.google.de/text.txt');  
    finally
      free;
    end;
  if Pos('erlaubt', MeinText) <= 0 then
    halt; // (in diesem Fall) besser als Application.terminate
end;

Kann sein dass es TIdHTTP.Create(self) heißen muss... ich habs grad aus dem Kopf geschrieben^^
Probiers aus -.-'