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); ImageStream.Position := 0;
Query.SQL.Text := 'INSERT INTO TuTabla (ImagenColumn) VALUES (:Image)';
Query.Parameters.ParamByName('Image').LoadFromStream(ImageStream, ftBlob); Query.ExecSQL;
finally
ImageStream.Free;
end;