StringGrid + celdas

[Makiley]

Yaaa, ese es el que estoy usando. Pero el caso es que no se como se vacia una celda del StringGrid, y como saber si esta marcada. He intentando usar una variable booleana pero no ma funcionao.
Esto es lo que tengo hecho. Es una especie de programa para unos multicines.

procedure TForm3.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
porcentaje:=porcentaje+1;
Edit1.Text:=IntToStr(porcentaje);
StringGrid1.Cells[ACol,ARow]:='Ocupado';
CanSelect:=False;
ProgressBar1.StepBy(1);
caja:=caja+ENTRADA;
end;

Supuestamente cuando desmarque una casilla, la barra de prograso tiene k disminuir, y cuando la marque tiene que aumentar.

Muchas gracias!!