[firebase-br] Como habilitar campos TIB_Edit ????

[NextCorp Informatica]

Caros colegas

Tenho um form master-detail e necessito habilitar e desabilitar os campos quando for inserir, alterar e salvar.
Estou utilizando o metodo abaixo, mas gostaria de utilizar uma funcao onde passe true ou false para enabled, pois assim em cada botao de inserir, alterar ou salvar tenho que colocar a rotina abaixo, oque acaba tendo a mesma rotina varias vezes dentro do mesmo form.

Tentei criar uma funcao F_Habilita(True), mas dá um erro na compilacao no ComponetCount. Se utilizo o for wlaco... dentro de cada botao de inserir, alterar e salvar, funciona normalmente.

function F_Habilita(whabilita)
for wlaco := 0 to ComponentCount -1 do
         begin
              if Components[wlaco] is TIB_Edit then
                 begin
                    TIB_Edit(Components[wlaco]).Enabled:= whabilita;
                 end;
         end;

Desculpe se não fui muito claro na minha explanação, mas hoje a coisa não está fluindo.

Utilizo IBO, firebird, delphi 5


Atenciosamente

Washington A. Müller da Silva

#####################
NextCorp Informática Ltda
www.nextcorp.com.br
nextcorp em terra.com.br
0 xx (51)-3589-3690
####################