[Thrasher]

Пробуй так

PHP код:

procedure Tform1.clearf(Sender: TObject);
var
i,c,k:integer;
begin
 With Form2 do
   begin
     C:=0;
       for I:=0 to ControlCount-1 do
              if Controls[i] is TlabeledEdit then Inc(C);
    
       for I:=0 to C-1 do
          TLabeledEdit(FindComponent('Edit' + IntToStr(I+1))).Color:=clRed;
   end;

c:=0;
for k := 0 to controlcount-1 do
  begin
  if controls[k] is TlabeledEdit then
  c:=c+1;
  end;
for i:=0 to c-1 do
    begin
      TLabeledEdit(FindComponent('Edit' + IntToStr(i+1))).color:=clred;
    end;
end;