Recepcion de archivo en cgi

[bitbow]

Saludos, tengo el siguiente problema espero me puedan ayudar.

Estoy programando un CGI al que se le envia un archivo mediante un formulario en html, quisiera saber como lo puedo recibir ya que los metodos que he utilizado hasta ahora solo me sirven para recibir string y en este caso seria un TStream, pero no se como recibirlo para guardarlo en una carpeta en el servidor.

Gracias.

[bitbow]

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
lFileName : string;
lFileStream : TFileStream;
begin
lFileName := Request.Files[0].FileName;
lFileStream := TFileStream.Create(lFileName, fmCreate);
try
lFileStream.CopyFrom(Request.Files[0].Stream, Request.Files[0].Stream.Size);
finally
lFileStream.Free;
end;
end;