Процедура не вызывается

[Точьичка]

Добрый день. Пишу программу на Delphi, которая работает с MySQL. Написала процедуру для выборки некоторых данных, но она почему-то вызывается только из одного места (CheckBox1Click), а из других мест не хочет. Код:

//Вывод списка всех заказов
procedure TForm1.Orders_all;
var
  i:integer;
begin
  if CheckBox1.Checked=true then
  begin
    i:=1;
    MyQuery1.SQL.Text:='set names "cp1251"';
    MyQuery1.Execute;
    MyQuery1.SQL.Text:='select id,delivery_date,name from orders';
    MyQuery1.Open;
    while not MyQuery1.Eof do
      begin
        StringGrid1.Cells[0,i]:=MyQuery1.FieldByName('id').AsString;
        StringGrid1.Cells[1,i]:=MyQuery1.FieldByName('delivery_date').AsString;
        StringGrid1.Cells[2,i]:=MyQuery1.FieldByName('name').AsString;
        i:=i+1;
        StringGrid1.RowCount:=i;
        MyQuery1.Next;
      end;
  end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Orders_all;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Orders_all;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Orders_all;
end;

[SNUPY]

Эмм... а BitBtn1Click и FormCreate сами-то вызываются?!

[JUDAS]

а где MyQuery1.Close; ?

[art-programs]

А вы уверены что когда вы вызывали процедуру по BitBtn1Click
CheckBox1.Checked был true?

[Точьичка]

art-programs, спасибо, я как-то не подумала что CheckBox1.Checked будет влиять на другие процедуры!

[GunSmoker]

Ну, просто так оно и не будет влиять.

Но у вас же чёрным по синему написано:

if CheckBox1.Checked=true then

"Если CheckBox1 отмечен - выполнять".

Соответственно, если не отмечен - то не выполнять.

Зачем вы это написали?

[Точьичка]

Я сначала писала процедуру только для chekbox, а потом вынесла в отдельную и про эту строку просто забыла...