Jak blokować przed edycją poszczególne komórki T

Jeżeli wiesz jak zablokować pojedyncze komórki przed edycją w TStringGrid to proszę Cię o pomoc!

DK3000

Options := [goEditing];

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
with StringGrid1 do
if not ((Col = 2) and (Row = 2)) then //Zablokowane 2,2
Cells[Col, Row] := Cells[Col, Row] + Key;
end;

Nigdy nie grzebałem się przy StringGrid, ale tak na oko to lepiej by było w ten sposób:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
with StringGrid1 do
if ((Col = 2) and (Row = 2)) then Key:=#0;
end;