[newbas]

Есть компонент в Д7 TIdTCPServer лучше использовать его.
Событие onExecute происходит, когда клиент пишет в сервер, тогда обработку будет

Код:

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var f: TFileStream;
    s,FileName,Ip,InBox,OutBox,s1: string;
    List:TStringList;
    Res,i,Err,Count,Size:integer;
    Rect:TRect;
begin
   // Читаем номер 1111 или 2222
   s := AThread.Connection.ReadLn;
   With AThread.Connection do
     begin
        // Получаем размер файла
         Size:=ReadInteger();
         f := TFileStream.Create(s, fmCreate );
        try
           ReadStream(f,Size);
           //AddLog('Принят файл '+s+' от '+ip);
           // Переименовываем файл
           F.Free;
        except
           //AddLog('Ошибка приема файла '+s);
           F.Free;
        end;
      Disconnect;
    end;
end;