Subir imagen a base de datos

[javier14]

Buenas, como puedo subir a mi base de datos SQLServer una imagen al pulsar un botón. Necesito saber como pasarle la imagen del Image1:

procedure TForm1.btnAnyadirBLClick(
Sender: TObject);
begin
with BL_ADOQ do
begin
SQL.Clear;
SQL.Text := 'INSERT INTO Datos_BL (codigo, codigoBL, entregado, imagen) ' +
'VALUES (''' + edCodigo.Text + ''',''' + edCodigoBL.Text + ''',''0'', )';
ExecSQL;
end;

end;

procedure TFormInsertIncidencias.Image1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;


Gracias