// criar bookmark de string
var
book: string;
begin
book := Tb.Bookmark;
// do something
Tb.Bookmark := book;
end;