DBGrid.Field.Value mit Daten einer Tabelle vergleichen?

[Loki77]

Hallo!
Hier mal ´n bisschen Code:

Delphi-Quellcode:

procedure TForm1.DBGrid6ColEnter(Sender: TObject);
var
i : integer;
begin
  SpeedButton3.Enabled := true;
  SpeedButton4.Enabled := true;
  tblCheck.First;
  while not tblCheck.eof do
  begin
    if tblCheck.FindKey([DBGrid6.Columns[0].Field.Value]) then
      Label10.Color := clGreen
    else
      Label10.Color := clMaroon;
    tblCheck.next;
  end;

Wenn ich einen zweiten Datensatz anklicke der in meiner Vergleichs-Tabelle steht
hängts sich das Prog (in ner Schleife?) auf.