как реализовать многопоточность ?
Отдача происходит так

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
 ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
IdHTTPServer1.ServeFile(AThread,AResponseInfo, PathIndex+'file.htm');

другой юзер  не достучится пока первому не отдаст документ
вариант сделать сложную систему
1)приходит юзер (значит на IdHTTPServer1CommandGet )
2)запоминаем где нибудь,делаем поток,
передаем туда параметры AThread,AResponseInfo,
потом сам делает команду IdHTTPServer1.ServeFile(AThread,AResponseInfo, PathIndex+'file.htm');
правда,что будет если несколько потоков шлют,
не споткнется ли компонент  ?

другой юзер  не достучится пока первому не отдаст документ

Достучится.

аха инди вроде многопоточен

IdHTTPServer1CommandGet(AThread: TIdPeerThread