Prosedur combobox onchange

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text = 'beruang' then
     Image1.Picture.LoadFromFile('gambar.png')
  else if ComboBox1.Text = 'kucing' then
     Image1.Picture.LoadFromFile('gambar2.png');
end;