function ResetControls(oForm:TForm):Boolean;
var
i:integer;
begin
for i:=1 to oForm.ComponentCount do
begin
if (oForm.Components[i-1] is TEdit) then
(oForm.Components[i-1] as TEdit).Text :=''
else if (oForm.Components[i-1] is TComboBox) then
(oForm.Components[i-1] as TComboBox).Text :=''
else if (oForm.Components[i-1] is TMemo) then
(oForm.Components[i-1] as TMemo).Text :=''
else if (oForm.Components[i-1] is TCheckBox) then
(oForm.Components[i-1] as TCheckBox).Checked :=False
else if (oForm.Components[i-1] is TMemo) then
(oForm.Components[i-1] as TMemo).Text :=''
else if (oForm.Components[i-1] is TRadioButton) then
(oForm.Components[i-1] as TRadioButton).Checked :=False;
end;
Result:=True
end;