[Kailon]

Всё правильно, за исключением того, что переменная Key в твоей процедуре RadioGroup3Click никакого отношения к StringGrid не имеет так как она является локальной. Перенеси свой код в процедуру KeyPress StringGrid'a и все будет у тебя работать. Примерно это будет выглядеть так:

Код:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  case RadioGroup3.ItemIndex of
  0:
    begin
    //выражения
    end;
  1:
    begin
    //выражения
      if (StringGrid1.Row = 18) and (StringGrid1.Col = 1) then Key := #0;
    end;
  end;
end;

И когда ты будешь выбирать в RadioGroup итем под номером 1, то ввод в ячейку с указанными координатами будет блокироваться.