сервер:
savestr := TMemoryStream.Create;
        ARequestInfo.PostStream.Position:=0;
        savestr.LoadFromStream(ARequestInfo.PostStream);
        savestr.SaveToFile(path + ARequestInfo.Params.ValueFromIndex[0]+'.jpg');
        AResponseInfo.ContentText:='ok';
        Memo1.Lines.Add('save '+path + ARequestInfo.Params.ValueFromIndex[0]);

клиент отправляет фото из imagecontrol
mem := TMemoryStream.Create;
        nameimg := 'sklad_' + datetostr(now) + '_' + random(9999)
          .tostring;
        ImageControl1.Bitmap.SaveToStream(mem);
        mem.Position:=0;
        NetHTTPClient1.Post(url + nameimg, mem);