procedure TForm1.Clear_values
var
j : Integer;
begin
for j := 0 to ComponentCount-1 do
begin
for j := 0 to ComponentCount-1 do
begin
if (Components[j] is TEdit) and (Components[i] <> Edit1) then
(Components[j] as TEdit).Text := '';
if (Components[j] is Tcheckbox) then
(Components[j] as Tcheckbox).checked := false;
if (Components[j] is TRadioButton) then
(Components[j] as TRadioButton).checked := false;
if (Components[j] is TComboBox) then
(Components[j] as TComboBox).Itemindex := -1;
if (Components[j] is Tmemo) then
(Components[j] as Tmemo).text := '';
end;