Всё правильно, за исключением того, что переменная 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, то ввод в ячейку с указанными координатами будет блокироваться.