procedure TfmMainTelegramBot.DownloadImage2(const image_url: string; var img_stream: TMemoryStream);
Var
  HttpClient: THTTPClient;
begin
  if not Assigned(img_stream) then
  begin
    CodeSite.SendError(constErrDownloadImg + ', img_stream not assigned', ['DownloadImage']);
    exit;
  end;

  if image_url.IsEmpty then
  begin
    CodeSite.SendError(constErrDownloadImg + ', image_url is empty', ['DownloadImage']);
    exit;
  end;
  img_stream.Clear;


  HttpClient := THTTPClient.Create;
  HttpClient.SecureProtocols := [THTTPSecureProtocol.TLS12];

  try

    try
      HttpClient.get(image_url, img_stream);
      img_stream.Seek(0, 0);
  //    img_stream.SaveToFile('d:\_DownloadImage.gif');
    except
      on e:exception do
      begin
        CodeSite.SendException(constErrDownloadImg + ': ' + image_url, e);

      end;// on e:exception do
    end;// try except

  finally
    FreeAndNil(HttpClient);
  end;
end;




//использование
  img_stream := TMemoryStream.Create;
  try
    fmMainTelegramBot.DownloadImage2(s, img_stream);// скачиваю

    if img_stream.Size <= 0 then
    begin
      MessageBox('картинка не найдена', constError, MB_OK+MB_ICONERROR);
      exit;
    end;

    img_stream.Position := 0;
    Dataset1.Edit;
    Dataset1ImageField1.LoadFromStream(img_stream);
    Dataset1.Post;

  finally
    FreeAndNil(img_stream);
  end;