var
edits, ronly : integer;
componente : TControl;
begin
edits := 0;
ronly := 0;
for i:= 1 to form.controlcount - 1 do
componente := form.controls[i];
if componente is Tedit then
begin
edits = edits + 1;
if (componente as tedit).readonly then
ronly := ronly + 1;
end;
if ronly = tedits then
showmessage('Todos los edits son read only');
end;