[chona]

procedure TFFotos.CargarImagen2Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
TFotos.Append
if TFotosFoto = NIL then TFotos.APPend
else TFotos.Edit;
TFotosFoto.LoadFromFile(opendialog1.FileName);

***De donde sale esto "TFotosFoto?". Si mal no entiendo el TFotos es un IBDataSet y Foto es un campo de la tabla. ¿Al TFotosFoto hay que definirlo o te lo reconoce solo?, porque yo pongo IBDataSet1FOTOOO_01 y no compila, me da error Undeclared Identifier "IBDataSet1FOTOOO_01" ****
mi IBdataset = IBDataSet1
mi campo blob = FOTOOO_01

TFotosTipo.Value := ansiuppercase(extractFileExt(opendialog1.FileName));
TFotos.Post;
TFotosAfterScroll(TFotos);
end;
end;