Strings aus dbgrid auslesen

[The_Doomed]

hab noch mal ne frage ^^

und zwar will ich dass er den aus der DBGrid gelesenen Wert vorher noch mit dem list eintrag vergleicht
und wenn er doppelt ist ihn nicht hinzufügt sondern erst fragt
weiteres problem ich möchte dass die listeinträge ein TObject ranbekommen der mit einem autoinc eintrag aus dem
DBGrid identisch is um einen rückbezug zu haben aber autoinc und integer verstehen sich nicht

Code:

procedure TForm1.Button3Click(Sender: TObject);
var n,i:integer;
f:array [0..100] of string;
begin

for n := 1 to Listbox1.Count +1 do
  begin
    if DBGrid1.DataSource.DataSet.FieldbyName('Name').Value=f[i] then //Vergleich von Name aus liste und DBGrid funzt nicht
edit2.text:='1';
  end;
  if edit2.Text='1' then
  begin
   form2.showmodal;

      end
      else Listbox1.Items.Addobject(DBGrid1.DataSource.DataSet.FieldbyName('Name').Value, Tobject(DBGrid1.DataSource.DataSet.FieldbyName('ID').Value)); // anfügen eines TObjects welches den wert von ID aus dem DBGrid liest funzt nicht 
  end;