Problem with Code [Loop]

Hi all,

When I run the code below it takes 100% CPU and I have to kill the process.

Can someone help to make it run properly please?

Here is the code:

////////////////////////////////////////////////////
/// Procedure here
///////////////////////////////////////////////////
procedure TForm1.ExcludeListBoxItems;
var Exclude: TStringList;
    i: integer;
    Query: string;
begin
 Exclude := TStringList.Create();

 try
  for i := 0 to sListBox1.Count - 1 do
   Exclude.Add(QuotedStr(sListBox1.Items[i]));

  Query := Format('SELECT * FROM products where not (AccountID in (%s))', [Exclude.CommaText]);
 finally
  Exclude.Free();
 end;
end;

////////////////////////////////////////////////////////////////////////
/// Button Click Procedure here
///////////////////////////////////////////////////////////////////////
procedure TForm1.sButton5Click(Sender: TObject);
var TheField : String;
begin
  with DBAdvGrid1.DataSource.DataSet do
         begin
         First;
         DisableControls;
         try
            while not EOF do
               begin
               if DBAdvGrid1.DataSource.DataSet.FieldByName('AccountID').AsString = ADOQuery1.FieldByName('AccountID').Value then
               TheField:=(ADOQuery1.FieldByName('AccountID').AsString);
               Memo1.clear;
               //Memo1.Lines.Add(Format('SELECT * From products WHERE AccountID=''%s''',[TheField]));
               ExcludeListBoxItems;
               sListBox1.Items.Add(TheField);
               //exit; //Stop it here for now
               //...Do stuff there
   

               Next;
            end;
         finally
            EnableControls;
         end;
      end;
end;

Thanks

ST3VO