/*
Procedimiento para limpiar los controles TEdit
de cualquier formulario.
Parámetros:
F - Formulario que se quiere limpiar.
Notas:
El procedimiento puede llamarse en cualquier parte
Alumno:
Román
Calificación: _______
*/
procedure Limpia(F: TForm);
var
I: Integer;
begin
if not Assigned(F) then exit;
for I := 0 to Pred(F.ComponentCount) do
if F.Components[i] is TEdit then
TEdit(F.Components[i]).Clear;
end;