Guardar imagen en un campo Varbinary

[Ledian_Fdez]

Hola chicos estoy desarrollando una aplicación en Delphi 2010 y como gestor de BD MSSql Server 2008 y llevo días intentando guardar fotos con el formato .jpg o .jpeg en un campo Varbinary(max), entre las búsquedas realizadas dentro y fuera de este foro encontré este código para extraer la

Código Delphi [-]
function TForm1.GetFieldToJPG(FieldName: String): TJPEGImage;
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Result := TJPEGImage.Create;
  with ADOTable1 do
  begin
    try
      TBlobField(FieldByName(FieldName)).SaveToStream(Stream);
      Stream.Position := 0;
      if (Stream.Size > 0) then
        Result.LoadFromStream(Stream)
      else
        Result := nil;
    finally
      Stream.Free;
    end;
  end;
end;

y cargo la foto

Código Delphi [-]
Image1.Picture.Assign(GetFieldToJPG('Photo'));

Lo que no logro es crear una función para guardar la imagen en la base de datos en el campo Photo de tipo Varbinary(max).

alguien me pudiera ayudar,
gracias de antemano.