procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text='1' then
begin
application.MessageBox('1','',mb_ok);
end
else if combobox1.Text ='2' then
begin
application.MessageBox('2','',mb_ok);
end
else
begin
application.MessageBox('other','',mb_ok);
end;
end;