请问这一句怎么修改才能运行？(0分)

procedure TForm1.suiComboBox1Click(Sender: TObject);
begin
case suiComboBox1.ItemIndex of
0: begin
suiForm1.UIStyle:=WinXP;
end;
1: begin
suiForm1.UIStyle:=MacOS;
end;
2: begin
suiForm1.UIStyle:=Protein;
end;
end;
提示信息如下:
[Error] Unit1.pas(158): Undeclared identifier: 'WinXP'
[Error] Unit1.pas(161): Undeclared identifier: 'MacOS'
[Error] Unit1.pas(164): Undeclared identifier: 'Protein'
[Error] Unit1.pas(168): ';' expected but '.' found
[Error] Unit1.pas(170): Declaration expected but end of file found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

你需要引用WinXP所在的单元;

怎么引用？，请大侠说详细一点~,谢谢~

case语句最后少了一个end;
你的控件的风格不能直接写成macos等等的，
你用的这个控件注册了吗？告诉我注册码吧，我的每次都有一个烦人的对话框弹出来

www.playicq.com有下载吧