Timer не выключается

[Tabor678]

Не могу понять почему не выключается таймер, а начинает работать заново, ведь условие выполнено, вылазиет showmessage, но Timer2.Enabled:=false; не останавливает таймер.

P.S> если код ужасный, не ругайте Delphi изучаю меньше недели

procedure TForm4.Timer2Timer(Sender: TObject);
var
status1: integer;
kofff: string;
srav: integer;
begin
srav:=2;

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'set.ini');
kofff := Ini.ReadString('Info', 'ID', 'nofile');
Ini.Free;

ADQuery2.close;
ADQuery2.SQL.Text:='SELECT * FROM table WHERE kod=:Param103';
ADQuery2.Params.ParamByName('Param103').Value:=kofff;
ADQuery2.open;

status1 := ADQuery2.Fields[3].AsInteger;
if status1=srav then
begin
Timer2.Enabled:= true;
showmessage('Хай');
form7.Show;
form7.art;
Timer2.Enabled:=false;
end;
end;

[lomastr_]

Timer2.Enabled:=false;убрать
Timer2.Enabled:= true заменить на Timer2.Enabled:=false;

а вообще, мягко говоря всё не правильно, зачем постоянно читать ини, он что меняется постоянно? если да то и с ним у вас не то, иначе зачитать хватит 1 раза а не в таймере

SELECT * FROM

вам надо 1 поле, зачем тянуть все, да еще напрягать базу без надобности?

form7.Show;

автосоздание - зло, глобальные переменные тоже

ну и таймер тут тоже не понятно зачем

[Tabor678]

Сообщение от lomastr_

Timer2.Enabled:=false;убрать
Timer2.Enabled:= true заменить на Timer2.Enabled:=false;

спасибо, таймер остановился)

зачем постоянно читать ини, он что меняется постоянно? если да то и с ним у вас не то, иначе зачитать хватит 1 раза а не в таймере

да, вы правы

автосоздание - зло

почему? как по другому?

[lomastr_]

потому что создавать надо по мере надобности

[Tabor678]

Сообщение от lomastr_

потому что создавать надо по мере надобности

ну так в том то и дело, что форма должна появиться когда статус в базе поменяется. Тут проблема вот в чем, если этот самый form7.show включить по событию из кнопки, то она (form7) отлично открывается, если же во время работы программы в базе поменять статус на 2, то тоже form7 отлично открывается. Но если запустить программу, а в статусе в это время уже стоит 2, то эта форма выдает ошибку, скрин в файле

[lomastr_]

ну вот вам зло в явном виде
уберите ее из автосоздания
а в коде напишите что то типа этого
var
f : TForm7; только не в глобальной секции
...
f:= TForm7.Create;
f.Show;
а в закрытии формы указать Action:=caFree