كود مسح كامل TEdit وإفراغها مرة واحدة

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