Subir imagen a base de datos

[pgranados]

Nunca he subido un archivo directamente a la db por el espacio que pueda consumir, lo que yo hago es copiar la imagen dentro de mi aplicación o de una ruta y ya en la base de datos salvo la ruta del archivo + nombre del archivo + extensión.

Aunque respondiendo a tu pregunta, pues chatgpt dice lo siguiente:

Código Delphi [-]
ImageStream := TMemoryStream.Create;
    try
      Image1.Picture.Graphic.SaveToStream(ImageStream); // Guarda la imagen en el stream
      ImageStream.Position := 0; // Reinicia la posición del stream

      Query.SQL.Text := 'INSERT INTO TuTabla (ImagenColumn) VALUES (:Image)';
      Query.Parameters.ParamByName('Image').LoadFromStream(ImageStream, ftBlob); // Carga el stream en el parámetro
      Query.ExecSQL;
    finally
      ImageStream.Free;
    end;