Limpar Edit, Memo de um form – Delphi

  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;