Mengosongkan edit menggunakan Array pada delphi

Untuk hari ini saya akan sedikit berbagi bagaimana cara Mengosongkan edit menggunakan Array pada delphi, mungkin temne temen lebh sering mengosongkan komponen edit dengan cara edit1.clear atau edit1.text :='' nah sekarang saya akan mengosongkan edit menggunakan array caranya

1. Buat procedure
procedure TForm1.TextClear(com : Array of TCustomEdit);
var
I : Integer;
begin
for I := Low(com) to High(com) do
begin
TCustomEdit(Components[I]).Text := '';
end;
end;
2. Cara penggunaan
procedure TForm1.Button1Click(Sender: TObject);
begin
TextClear([Edit1, Edit2, Edit3]);
end;

Nah gampang bukan Misalkan kita ingin mengosongkan 10 buah edit
tidak perlu Edit1.text := '';...Edit10.Text :=''; cukup dengan 
TextClear([Edit1, Edit2, Edit3, Edit4,...Edit10]);


Ok sekian semoga bermanfaat