[lmikle]

Код:

procedure TForm4.CheckBox4Click(Sender: TObject);
begin
   If Sender Is TCheckBox Do
     begin
       if (Sender as TCheckbox).Checked then
         form4.StringGrid1.ColWidths[17]:=64
      else
         form4.StringGrid1.ColWidths[17]:=-1;
    end;
end;

Этот обработчик надо назначить разным чекбоксам.
Если хочется разной логики по разным чекбоксам, так у любого компонента есть свойство Tag.