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