[artemavd]

lmikle, не могли бы помочь с кодом? А то слишком серьезно для меня объяснили). Я тут пробовал так:

Код:

procedure TForm1.SG1Click(Sender: TObject);
var
 OldVal: string;
 OldX, OldY: integer;
begin
 OldVal:='';
 if (OldVal <> '') and (OldVal = SG1.Cells[OldX,OldY]) then
   begin
    OldVal:=SG1.Cells[OldX,OldY];
   end;
end;

но не получилось((