DELPHI如何做类似EXCEL里的数据透视表(200分)

[]有一个数据表结构如下：
名字 成绩
甲 优
丙 差
乙 良
丙 良

如果做出如下数据透视表：

名字 优 良 差
甲 1 0 0
乙 0 1 0
丙 0 1 1
合计：1 2 1

with 表1 do
begin
first;
while not eof do
begin
if not 表2.locate('名字',FieldByName('名字').AsString,[]) then
表2.AppendRecord([FieldByName('名字').AsString,0,0,0]);
表2.edit;
表2.FieldByName(FieldByName('成绩').AsString).AsInteger :=
表2.FieldByName(FieldByName('成绩').AsString).AsInteger + 1;
表2.Post;
Next;
end;
end;

用Decision Cube的“交叉表”功能能够直接实现。