IdHTTPServed delphi передача файла клиенту

[postal2]

Здравствуйте уважаемые форумчане.
Подскажите пожалуйста, как с помощью компонента IdHTTPServer сделать передачу файлов? Не текста (с этим я разобрался), а именно файлов (чтобы в браузере появлялся диалог 'Открыть, сохранить')
Заранее спасибо.

[postal2]

Всем спасибо, нашёл сам

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
if fileexists(ARequestInfo.Document) then
begin
aresponseinfo.ContentType:='application/zip';
AResponseInfo.ContentStream:=TFileStream.Create(ARequestInfo.Document,fmOpenRead);
end
else
AResponseInfo.Contenttext:='Файл не найден!';
end;

_______________________________
Полдня искал, реально..