function get_photo(db_host,db_name,db_user,db_pass,db_port:string):tmemorystream;
var
 FDC:TFDConnection;
 FDQ:TFDQuery;
 bst:TFDBlobStream;
 jpeg: TJPEGImage;
begin
  FDC:=TFDConnection.Create(nil);
  FDQ:=TFDQuery.Create(nil);
  FDC.LoginPrompt:=False;

  jpeg:=TJPEGImage.Create;

  with FDC do
    begin
      Connected:=False;
      Params.Clear;
      Params.Append('DriverID=MySQL');
      Params.Append('Server='+db_host);
      Params.Append('Port='+db_port);
      Params.Append('Database='+db_name);
      Params.Append('User_Name='+db_user);
      Params.Append('Password='+db_pass);
      Params.Append('CharacterSet=utf8');

      try
        try
          Connected:=True;

          FDQ.SQL.Clear;
            FDQ.SQL.Add('Тут запрос в БД');
          FDQ.Connection:=FDC;
          FDQ.Active:=True;

          //получаем фото из БД
          bst:=TFDBlobStream.Create(TBlobField(FDQ.Fields[0]),bmRead);
          //передаем в jpeg 
          jpeg.LoadFromStream(bst);
          
          //отдаем наружу
          Result:=tmemorystream.Create; //EurekaLog говорит, что утечка здесь
          jpeg.SaveToStream(Result); 
        finally
          Connected:=False;
          bst.Free;
          jpeg.Free;
          FDC.Free;
          FDQ.Free;
        end;
      except
        on e: Exception do
          Writeln(f_log,TimeToStr(Now())+' Ошибка при получении фото из БД! '+
          'EMessage: '+E.Message);
      end;
  end;
end;

function put_files_ftp(ftp_host,ftp_user,ftp_pass,ftp_port,ch_directory:string):boolean;
var
  ftp:TIdFTP;
  name_file:string;
  st:tmemorystream;
begin
Result:=False;

  ftp:=TIdFtp.Create(nil);

  with ftp do
  begin
    Host:=ftp_host;
    Port:=StrToInt(ftp_port);
    Username:=ftp_user;
    Password:=ftp_pass;
    Passive:=true;
  end;

  try
    try
      ftp.Connect;
      ftp.TransferType := ftBinary;

      if ch_directory<>'' then ftp.ChangeDir(ch_directory);

      //получаем поток для отправки
      st:=get_photo(host_db,name_db,user_db,pass_db,port_db);
      st:=foto_resize(st);

      //отправляем сформированный поток
      ftp.Put(st,name_file,False);

      Result:=True;
    finally
      ftp.Disconnect;
      ftp.Free;
      FreeAndNil(st);   //<<Здесь я освобождаю память
    end;
  except
    on E: EIdException do
      begin
        Writeln(f_log,TimeToStr(Now())+' Ошибка Indy при отправке файла '+name_file+' на FTP-сервер! '+
        'EIdMessage: '+E.Message);
      end;
    on E: Exception do
      begin
        Writeln(f_log,TimeToStr(Now())+' Ошибка VCL при отправке файла '+name_file+' на FTP-сервер! '+
        'EMessage: '+E.Message);
      end;
  end;
end;