[ecfisa]

Hola.

A partir de Delphi 2009 GetBookmark devuelve un puntero a TBytes.

Probá haciendo:

Código Delphi [-]

var
  bmReg: TBookmark;  // <== este cambio
begin
  ...
  bmReg := GetBookmark;
  try
    sPredAnt := FieldByName( 'Prede' ).AsString;
    if (sPredAnt = 'P') or Locate('Prede', 'P', []) then
    begin
      Edit;
      FieldByName( 'ImagenPrede' ).Assign( TBitmap.Create );
      FieldByName( 'Prede' ).AsString := ' ';
      Post;
    end;
  finally
    GotoBookMark(bmReg);
  end;
...

Saludos.

Edito: No podía encontrar el artículo donde lo había leido, lo acabo de ubicar : Release Notes for Delphi 2009 ...