Fórum Converter bookmark para string; #260215

Pessoal,

Tenho uma conexão ADO(jet4.0)-Adoconnection,um ADOTable, uma datasource
e um dbgrid e dois botões. O cliente quer que o registro selecionado
esteja indicado quando quando ele quiser abrir a aplicação novamente.
Tentei gravar o bookmark num texto e converter
novamente para um bookmark. Ai é que não sei como fazer.

Se alguém puder ajudar agradeço.

var
Form1: TForm1;
sel:TBookmark;
arq:TStringList;
arq2:TStringList;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
q:string;
begin
arq:=TStringList.Create;
sel:=DataSource1.DataSet.GetBookmark;
arq.Add(DataSource1.DataSet.Bookmark);

if FileExists(´c:\apl\pos.txt´) = true then
DeleteFile(´c:\apl\pos.txt´);
arq.SaveToFile(´c:\apl\pos.txt´);
arq.Free;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
ler:string;
sel2:TBookmark;
begin
arq2:=TStringList.Create();
arq2.LoadFromFile(´c:\apl\pos.txt´);
sel2:=arq2.gettext; // mensagem: argumentos incorretos???
DataSource1.DataSet.GotoBookmark(arq2.???);
end;