title: Problem with checking ADOTable field values
body: <p>I'm having yet another problem with Delphi. I wrote a piece of code that should check if a field in a database table equals to 0, and if that is true, changes font color and caption of a certain button. It runs on creation of the main form. However, when I run the program, nothing happens - the program does not appear and I get no errors. I seriously don't know what's wrong, seems like some kind of an infinite loop. </p>
  
  <p>Here's the code:</p>
  
  <pre><code>procedure TForm1.FormCreate(Sender: TObject);
  begin
  ADOTableStorage.First;
  while not ADOTableStorage.Eof do
      If ADOTableStorage.FieldByName('amount').AsInteger = 0 then
          begin
          btStorage.Font.Color := clRed;
          btStorage.Caption := 'Some items are out of stock!';
          Break;
          end;
      ADOTableStorage.Next;
  end;
  </code></pre>
  
  <p>Note: The ADOTableStorage table is a on the detail table in a Master-Detail connection.</p>
  
  <p>Thanks!</p>