помогите с функцией

[1234]

народ люди и наконец боги дэльфи помогите
у меня есть гл.форма на которой разные кнопочки и едит1 как сделать
чтоб если в едит1.текст =123 тогда все работает а если нет то недоступна не одна кнопочка кроме кнопки GER

[Stilet]

Пишу с потолка:

for i:=0 to form1.controlcount-1 do
 if (form1.controls[i] is TButton) then TButton(form1.controls[i]).enabled:=Edit1.text='123';
Ger.enabled:=true;

[1234]

пытался прописать на оншоу не работает
пишет ошибку
[Error] Unit1.pas(34): Undeclared identifier: \'i\'
[Fatal Error] Project1.dpr(5): Could not compile used unit \'Unit1.pas\'

[Terran]

1234,объявите переменную.

Var
I: Integer;

[SERG1980]

Можно бросить на форму компонент ApplicationEvents (с закладки Additional)и в событии OnIdle

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
 button1.Enabled:=edit1.Text='123';
 button2.Enabled:=edit1.Text='123';
Done:=true;
end;

[1234]

спасибо ребят огромное