Como Limpar Todos os Edit's de um Form de uma só vez

Pra você que tem uma tela cheia de Edits e sempre precisa estar limpando, segue uma dica legal para fazer uma limpeza geral.

procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!