ActiveLanguage property example
procedure TForm1.Button1Click(Sender: TObject);
begin
siLang1.ActiveLanguage := 2;
end;