Как очистить все окошки редактирования на форме?

procedure ClearEdits;
 var
 i : Integer;
begin

for
 i := 0 to ComponentCount-1 do
  if
 (Components[i] is TEdit) then
    (Components[i] as
 TEdit).Text := '';
end
;




Сериал CSI: Лас Вегас (CSI: Las Vegas) на DVD