کد دلفی حذف گروهی متون در edit ها

procedure ClearEditBoxes;

var
i : integer;
begin
for i := 0 to Form1.ComponentCount - 1 do begin
if (Form1.Components[i].InheritsFrom(TEdit)) then begin
(Form1.Components[i] as TEdit).Clear;
end;
end; // for i

end;