Yo suelo utilizar streams para eso:
Código Delphi
[-]
procedure CargarImagen(archivo: string);
var
s : TStream;
begin
s := TMemoryStream.Create;
try
s.LoadFromFile(archivo);
s.Position := 0;
Tabla.FieldByName('IMAGEN').LoadFromStream(s);
finally
s.Free;
end;
end;