with StringGrid1 do
  begin
    if ((Selection.Left = Selection.Right) and ((Selection.Top + 1) = Selection.Bottom)) or
       (Selection.Top = Selection.Bottom) and ((Selection.Left + 1) = Selection.Right) then
    begin
      Memo1.Lines.Add('Первое значение равно ' + Cells[Selection.Left, Selection.Top]);
      Memo1.Lines.Add('Второе значение равно ' + Cells[Selection.Right, Selection.Bottom]);  
    end
    else
    begin
      Memo1.Lines.Add('Выделена неправильная область');
    end;    
  end;