guardar datos de una fila seleccionada de un dbrig en variables

[deprimera]

hola

toy con un problemita en delphi..queria ver si tenian idea de como solucionarlo

tengo un dbgrid con la propiedad options: rowselect en true para que me pueda mostrar toda la fila seleccionada. Lo que yo kiero hacer es q cuando selecciono una fila m guarde los datos en variables.
Tengo las columnas Código, Servicio y Precio y las keria guardar en las variables cod, desc y precio y tengo un boton agregar para q cuando selecccione la fila lo apreto y ahi m guarde las variables. Puse esto pero no anda:

procedure Tcodigo.BitBtn1Click(Sender: TObject);
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=DBGrid1.SelectedRows.Count-1 downto 0 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
cod:=adotable1.fieldbyname('Código').AsInteger;
desc:=adotable1.fieldbyname('Servicio').AsString;
end;

edit1.Text:=inttostr(cod);
edit2.Text:=desc;
end;

si tienen idea de como solucionarlo, avisenme.

Saludos