[Lazarus-es] Error: Incompatible types: got "TBytes" expected "AnsiString" en TMemDataset

[Ismael L. Donis Garcia]

Estoy tratando de usar a TDataSet.Bookmark en un TMemDataset y me da el 
siguiente error:

ufcvta.pas(1732,19) Error: Incompatible types: got "TBytes" expected 
"AnsiString"

La verdad que no comprendo porque hice exactamente lo que dice la ayuda.

procedure Tfcvta.cmdupClick(Sender: TObject);
var
   vntBookMark: TBookmarkStr;
begin
  with ds do begin
   if not (BOF or EOF) then begin
     DisableControls;
     vntBookMark:=Bookmark;  //AQUI ES DONDE DA EL ERROR
     EnableControls;
     scodold:=FieldByName('cod').AsString;
   end;
  end;
 valcontroles(false);
  txtcod.SetFocus;
end;


Saludos Cordiales
========
| ISMAEL |
========
WebSite: http://sisconge.byethost15.com/