//asagidaki kod tum editleri kirmizi yapar,
enabled,readonly vs. ozelliklerini de kullanabilirsiniz.
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do begin
if components[i] is Tedit then (components[i] as Tedit).color:=clred;
end;
end;