[strelok]

listo che: XD

procedure X.XCANEDITCELL(
  Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);
begin
  inherited;
  if(Acol = 4) then CanEdit := True
  else CanEdit:=False;
end;