procedure TForm1.ComboBox1Change(Sender: TObject);
begin
IF ComboBox1.ItemIndex = 0
THEN Synedit1.Highlighter := css;
IF ComboBox1.ItemIndex = 1
THEN Synedit1.Highlighter :=
html;
IF ComboBox1.ItemIndex = 2
THEN Synedit1.Highlighter := php;
IF ComboBox1.ItemIndex = 3
THEN Synedit1.Highlighter := java;
IF ComboBox1.ItemIndex = 4
THEN Synedit1.Highlighter :=
pas;
IF ComboBox1.ItemIndex = 5
THEN Synedit1.Highlighter := vb;
IF ComboBox1.ItemIndex = 6
THEN Synedit1.Highlighter := c;
IF ComboBox1.ItemIndex = 7
THEN Synedit1.Highlighter := cpp;
IF ComboBox1.ItemIndex = 8
THEN Synedit1.Highlighter := js;
IF ComboBox1.ItemIndex = 9
THEN Synedit1.Highlighter := vbs;
IF ComboBox1.ItemIndex = 10
THEN Synedit1.Highlighter :=
xml;
IF ComboBox1.ItemIndex = 11
THEN Synedit1.Highlighter := bat;
IF ComboBox1.ItemIndex = 12
THEN Synedit1.Highlighter := perl;
IF ComboBox1.ItemIndex = 13
THEN Synedit1.Highlighter := python;
IF ComboBox1.ItemIndex = 14
THEN Synedit1.Highlighter := unix;
IF ComboBox1.ItemIndex = 15
THEN Synedit1.Highlighter :=
sql;
IF ComboBox1.ItemIndex = 16
THEN Synedit1.Highlighter := ini;
end;