funktion fra combobox

Hej eksperter. kan man ikke gøre noget i denne retning hvis man vil lave en function fra en combobox

procedure TForm3.Button1Click(Sender: TObject);
begin
if ComboBox1.Text:='Fjen' then
  begin
    Form1.Panel2.Enabled:=false;
    Form1.panel2.Visible:=false;
  end;
if ComboBox1.Text:='Vis' then
  begin
    Form1.Panel2.Enabled:=True;
    Form1.Panel2.Visible:=True;
  end;
end;

er det ikke muligt at lave noget der ser sådan ud?