Считываешь данные в массив, и далее работаешь с ним
Код:
uses
ComObj;
...
var
XL: Variant;
i, j: Integer;
Ras: array [0..3, 0..2] of String;
begin
XL := CreateOleObject('Excel.Application');
XL.DisplayAlerts := False;
XL.WorkBooks.Open(Путь к файлу);
XL.Visible := False;
for i := 0 to 3 do
for j := 0 to 2 do
Ras[i, j] := XL.WorkBooks[1].WorkSheets[1].Cells[j+2, i+2];
XL.Quit;
теперь просто анализируешь массив Ras