[DOS]

Hola, resulta que tengo una tabla de productos que tiene cantidad y stockminimo, quiero compararlos, porque si alguno llega al minimo tire un mensaje que hay que reponer mercaderias.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;   // menú veterinaria
Table1.Active:=true;
   While not Table1.Eof do
 begin
   if Table1.FieldByName('Stock').Value < Table1.FieldByname('Minimo').Value then // verifica si hay productos faltantes
      application.MessageBox('Hay productos con bajo stock', '¡Atención!', mb_ok + mb_iconquestion);
  end;
end;

el asunto es que se queda coldo el programa, como que falta cerrarlo de alguna manera, agradesco cualquier ayuda.