procedure TForm1.ComboBox1Change(Sender: TObject);
VAR
REG:TREGISTRY;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('software\microsoft\mediaplayer\preferences',True);
Reg.writestring('CurrentEffectType',ComboBox1.Text);
finally
Reg.Free;
end;
end;