[Julià T.]

si te sirve un ejemplo genérico ahí va:

Código Delphi [-]
function FileToBlob(aFile:string;aBlob:TBlobField):boolean;
begin
  Result:=False;
  if not FileExists(aFile) then exit;
  with TDataset(aBlob.GetParentComponent) do
  try
    Edit;
    aBlob.LoadFromFile(aFile);
  //Post; //no es conveniente hacerlo aqui ni olvidarse de el
    Result:=True;
  finally
  //nada que hacer aqui
  end;
end;