Одинаковые числа

[artemavd]

Я сделал процедуру удаления цифр немного по другому. Там если числа в двух ячеках одинаковые, то они удаляются. Вот код этой процедуры:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    SG1: TStringGrid;
    procedure SG1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FState : Integer;
    FSel : TPoint;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SG1Click(Sender: TObject);
begin
  Case FState Of
    1 : // No selected
      Begin
        FSel.X := SG1.Col;
        FSel.Y := SG1.Row;
        FState := 2;
        Exit;
      End;
    2 : // 1 selected
      Begin
        If SG1.Cells[SG1.Col,SG1.Row] = SG1.Cells[FSel.X,FSel.Y] Then
          Begin
            SG1.Cells[SG1.Col,SG1.Row] := '';
            SG1.Cells[FSel.X,FSel.Y] := '';
          End;
        FState := 1;
        Exit;
      End;
  End;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FState := 1;
end;

end.

Вот щас мне надо добавить еще одно условие. А именно я думаю, что надо добавить это условие вот в этот кусок кода:

2 : // 1 selected
      Begin
        If SG1.Cells[SG1.Col,SG1.Row] = SG1.Cells[FSel.X,FSel.Y] Then
          Begin
            SG1.Cells[SG1.Col,SG1.Row] := '';
            SG1.Cells[FSel.X,FSel.Y] := '';
          End;
        FState := 1;
        Exit;
      End;

. Условие следующее: нужно чтобы можно было убирать не только одинаковые числа, но те, которые дают в сумме 10. Т.е. например, убираем одинаковые, например, 1 и 1 и убираем, например, 9 и 1, т.к. сумма равна 10. Я пробовал вместо знака равенства ставить "+" и приравнивать к 10, но так не получается. А как надо добавить правильно?)