Посчитать и преоброзовать Excel в Delphi

[WithGod]

Извините плжалуйста мне нужно отфилтровать данные Excel-а на Delphi задача токая

в Excel-е

EEB н1 500
DEF н1 600
EEB н2 400
DEF н1 300

и мне нужно отфильтровать чтобы в резулбтате получился примерно так
на ДЕЛЬФИ на СтрингГриде было результат

------н1 н2
EEB 500 400
DEF 900 0

[Stilet]

Показывай код как ты их считываешь.

[WithGod]

Я загрузил ексел файл в StringGrid и теперь не могу отсортировать
его

пример таблицы

EEB--h1--200
EEB--h2--300
DEE--h1--300
DEE--h1--100

В StringGrid2 должно получится так

-----h1---h2
EEB-200--300
DEE-400--0

код этого бутона для сор(Знаю каш я уже три для с ним вожусь и )

Здесь в DEE h1+h1=400 а h2 путо потому что в таблице его нет

код этого бутона для сортировки

var
i,p,i2,p2, a, b:integer;
Text,Text2,Text3:string;
zn, zn2,zn3 :boolean;
begin
StringGrid2.RowCount:=Stringgrid1.RowCount;
StringGrid2.ColCount:=Stringgrid1.ColCount;
for i:=0 to stringGrid1.RowCount-1 do
begin
zn:=true;
zn2:=true;
zn3:=true;
a:=0;
Text:=StringGrid1.Cells[0,i];
Label5.Caption:=StringGrid1.Cells[0,i];
label11.Caption:=Stringgrid1.Cells[2,i];

Text2:=StringGrid1.Cells[i,0];
for i2:=0 to stringGrid1.RowCount-1 do
begin

label13.Caption:=StringGrid2.Cells[2,i];

label6.Caption:=StringGrid2.Cells[0 ,i2];
if StringGrid2.Cells[0,i2]=StringGrid1.Cells[0,i] then
begin
zn:=false;

end;
if stringGrid1.Cells[1,i]='Стр1' then
zn2:=false;

if zn2=false then
begin
label11.Caption:=IntToStr(StrToInt(Label11.Caption )+StrToInt(Label13.Caption))
//label13.Caption:=IntToStr(StrToInt(Label14.Caption )+StrToInt(Label14.Caption));


end;
if StringGrid1.Cells[1,i]='Стр2' then
begin

zn2:=false;
end;

end;
if zn=true then
begin
StringGrid2.Cells[0,i]:=StringGrid1.Cells[0,i];
Stringgrid2.Cells[1,i]:=label11.Caption;
//Stringgrid2.Cells[1,i]:=label12.Caption;
Stringgrid2.Cells[2,i]:=label12.Caption;
end;

if zn2=true then
begin
//Stringgrid2.Cells[1,i]:=label12.Caption;

end;


end;
end;