Yo utilizo esto y me va bien. El código está asociado a un botón de cargar imagen.
Código Delphi
[-]OpenPictureDialog1.Execute;
if OpenPictureDialog1.Filename <> '' then
begin
if not (TMapas.State in [dsInsert,dsEdit]) then TMapas.Edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
end;
Saludos