[NekitoSSSS]

как отправить файл клиенту?? ну например я создал сервер и обрабатываю входящие запросы:

Код:

procedure TForm1.HTTPCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var str:string;
    st:TStringList;
begin
str:=StringReplace(arequestinfo.document,'/','\',[rfReplaceAll]);
Delete(str,1,1);

if FileExists(ExtractFilePath(Application.ExeName)+str) then
 begin
  st:=TStringList.Create;
  st.LoadFromFile(ExtractFilePath(Application.ExeName)+str);
  AResponseInfo.ContentText:= st.Text;
  st.free;
 end;

if ExtractFileName(ExtractFilePath(Application.ExeName)+str)='favicon.ico' then
 begin
  //
  //  здесь как то надо отправить файл favicon.ico серверу. но как ???  
  //
 end;
memo1.lines.add(ExtractFilePath(Application.ExeName)+str);
end;

при запросе favicon.ico мне нужно отправить файл клиенту (в данном случае - браузеру). как это сделать??