idHTTPServer : Befehle auf server ausführen

[Assun]

Habe mal wieder ein kleines Problem !

Ich habe nun geschafft ein kleines Login Form zu erstellen : http://assun.gotdns.com

mein Code :

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var
  Stream: TFilestream;
  TheString : String;
  i, Anzahl : Integer;

  begin
if ARequestInfo.Document = '/'  then
begin
  try
  begin

    AResponseInfo.ContentType   := 'text/html';
    Stream := TfileStream.Create('Admin/login.htm', fmOpenRead or fmShareDenyWrite );
    AResponseInfo.ContentStream := Stream;
    setlength(TheString, stream.size);
    stream.Read(TheString[1], stream.size);
    Anzahl := ARequestInfo.Params.Count;

   for i := 1 to Anzahl do


  if (parse('=', ARequestInfo.params[0], 1) = 'submit') and
          (parse('=', ARequestInfo.params[0], 2) = '1') then
          if (parse('=', ARequestInfo.params[1], 1) = 'username') and
             (parse('=', ARequestInfo.params[1], 2) = 'Assun') then
            if (parse('=', ARequestInfo.params[2], 1) = 'password') and
               (parse('=', ARequestInfo.params[2], 2) = 'test') then begin

    AResponseInfo.ContentType   := 'text/html';
    Stream := TfileStream.Create('Admin/test.htm', fmOpenRead or fmShareDenyWrite );
    AResponseInfo.ContentStream := Stream;
    setlength(TheString, stream.size);
    stream.Read(TheString[1], stream.size);

    userok := true;
    end;

if ARequestInfo.Document = '/go'  then
begin
try
Caption := 'GEHT DOCH MAAAAAAAN';
except
Exit;
end;
end;
end;
except
Exit;
end;
end;
end;

wenn ich diesen Code verwende, dann kommt die Login seite und bei erfolgreichen einloggen werde ich auf test.htm weitergeileitet.

Mein Problem :

Wenn ich aber (egal ob vor oder nach dem einloggen) http://assun.gotdns.com aufrufe, so geschieht nix. Doch eigentlich sollte sich laut Code ja die Caption verändern !

Was mache ich denn diesmal falsch ?

THX

Gruß

Assun