Limpar os campos do formulário de uma só vez.

Abaixo, segue um procedimento para limpar os campos do formulário. Neste exemplo, foram colocados os campos edits e memo. Podem ser colocados outros tipos de componente.

------------------------------------------------------------------------------- procedure Form1.LimpaCampos;
var i: Integer;
begin
for i := 0 to ComponentCount - 1 do
begin
// Limpa os componentes do tipo Edit.
if (Components[i] is TEdit) then
(Components[i] as TEdit).Clear; // Limpa os componentes do tipo Memo.
else if (Components[i] is TMemo) then
(Components[i] as TMemo).Clear;
end;
end;
-------------------------------------------------------------------------------