Problem mit POST und IdHTTPServer1CommandGet

[seppi.tm]

also ich versuche mit folgender Funktion eine Datei per Firefox an den Webserver zu übertragen und diese zu Speichen:



if(ARequestInfo.Document='/upload.html') then begin

if ARequestInfo.Command='POST' then begin

PostedFile:=TFileStream.Create('C:\testzu.bmp' , fmCreate or fmShareDenyWrite);
try
PostedFile.CopyFrom(Arequestinfo.PostStream,Areque stinfo.PostStream.Size);
finally
PostedFile.Free;
end;

end
else begin
Aresponseinfo.ContentText:='<form method="POST" enctype="multipart/form-data" action="/upload.html">' +
'

<u><font color="#00FF00">Datei:</font></u></p> '+
'

<input type="file" name="F1" size="20"></p> '+
'

<input type="submit" value="Upload" name="B1"></p> ';


end;

was mache ich falsch ??