[ecfisa]

Hola amigo

Fijate si este ejemplo te sirve de guía:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  inx: Integer;
begin
  with DBGrid1.DataSource do
  begin
    DataSet.First;
    while not DataSet.Eof do
    begin
      if DBGrid1.SelectedRows.Find(DataSet.Bookmark, inx) then
        ListBox1.Items.Add(DBGrid1.Columns[0].Field.AsString + ' (Seleccionada)')
      else
        ListBox1.Items.Add(DBGrid1.Columns[0].Field.AsString);
      DataSet.Next;
    end;
  end;
end;

Saludos.