[ALexandr555]

Код:

else if msg = 'base' then
    begin
      ClientSocket.Sendln('ok');
      stream := TMemoryStream.Create;
      msg := ClientSocket.Receiveln;
      sz := StrToInt(msg);
      stream.SetSize(sz);
      ClientSocket.Sendln('ok');

      ClientSocket.ReceiveBuf(stream.Memory^, sz);
      stream.SaveToFile('ServBase\base1.txt');
      stream.Free;
      end;

проблему с отправкой с киента решил

вопрос как сделать оповещение о загрузке/отправке файла?
сразу после
TcpClient1.SendBuf(stream.Memory^, stream.Size);
ClientSocket.ReceiveBuf(stream.Memory^, sz);
вставлять Отправлено/принято?