Ну так напиши эти исключения!!!
Тебе дали пример. Если тебя что-то не устраивает - доделай сам.
Собственно, вот эти строки:
Код:
S1 := AStringGrid.Cells[0,I];
S1 := Copy(S1,Pos(' ',S1)+1,Length(S1));
S2 := AStringGrid.Cells[0,J];
S2 := Copy(S2,Pos(' ',S2)+1,Length(S2));
отвечают за формирование значений для сравнения. Измени их так, как считаешь нужным.