Como llevo cierto orden al nombrar los controles lo solucione de esta manera
Código Delphi
[-]Procedure BloquearEdits (Form :TForm);
Var i :Integer;
_name : string;
Begin
for i := 0 to (Form.ComponentCount - 1) do
begin
_name := Form.Components[i].Name;
if (Form.Components[i] is TCustomEdit) then
TCustomEdit(Form.Components[i]).Enabled := False;
if _en('dtp', _name) then TWinControl(Form.Components[i]).Enabled := False
end;
end;