用下拉列表框控件显示系统字体，但只显示中文字体(100分)

用下拉列表框控件显示系统字体，但只显示中文字体，且可使用

我给你发一个我的程序到你邮件中了，记住给我加分呀
放置1个button1 和 listbox1,就ok了。
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
str:string;
begin
listbox1.Items.Clear;
for i:=0 to screen.fonts.Count-1 do
begin
str:=screen.fonts.strings;
if str[1]<>'@' then
begin
if ord(str[1])>=128 then
begin
Listbox1.Items.Add(str);
continue;
end;
end
else
begin
if ord(str[2])>=128 then
begin
Listbox1.Items.Add(str);
continue;
end;
end;

end;
end;

接受答案了.