เขียน Procedure เช็คข้อมูล Component ที่เป็น TEdit โดยให้ Property Text เป็นข้อความว่างๆ [Delphi]

procedure TSaleOrder_F.clearContent;
var i : Integer ;
begin

 for i := 0 to ComponentCount-1 do
    begin
      if( Components[ i ] is TEdit )then
      {เช็คคอมโพเน้นท์ที่เป็น TEdit}
      begin
      {ลบข้อความในคอมโพเน้นท์แต่ละตัว}
        (Components[ i ] as TEdit).Text := '';
      end;
    end;

end;