求助：关于视频点播的问题

使用d2010，控件THttpserver控件，在客户端请求播放视频文件大尺寸时出错，报SOCKET ERROR 100503和SOCKET ERROR 100504错误
代码如下：
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if ARequestInfo.Document = '/a/a.rmvb' then
  begin
    if Tag = 0 then
    begin
      tag := 1;
      exit;
    end;
    AResponseInfo.ContentStream :=
      TFileStream.Create('d:\xx\movie\美国往事CD3[圣城家园www.].rmvb', fmopenread);
  end;
end;