[Gigabyte1024]

he intentado ambos codigos pero me sigue regresando el mismo error le hice algunas correcciones y lo deje asi:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  m, f: TStream;
  s: string;
begin
  if OpenPictureDialog1.Execute then
  begin
    IBDataSet1.Edit;
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
    //image1.Picture.Graphic.SaveToStream(f);
    //m:= IBDataSet1.CreateBlobStream(form1.IBDataSet1FOTO, bmWrite);
    f:= TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead);
    //m.CopyFrom(f, f.Size);
    form1.IBDataSet1FOTO.LoadFromStream(f);
    form1.IBDataSet1NOMBRE.AsString:=edit1.Text;
    form1.IBDataSet1APELLIDO.AsString:=edit5.Text;
    form1.IBDataSet1GRADO.AsString:=edit2.Text;
    form1.IBDataSet1TURNO.AsString:=edit3.Text;
    form1.IBDataSet1CODIGO.AsInteger:=strtoint(edit4.Text);
    IBDataSet1.Post;
    f.Free;
    m.Free;
  end;
end;

Eso despues de haber estado jugando con las sintaxis por varias horas pero sigue retornando el mismo error no se que esta mal la verdad.

muchas gracias por sus respuestas espero por favor sigan respondiendo
gracias