[lmikle]

Вот так что-ли:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J : Integer;
begin
  for I := 0 to Stringgrid1.ColCount-1 do
    for J := 0 to Stringgrid1.RowCount-1 do
      if I < StringGrid1.ColCount div 2
        then
          begin
            if J >= StringGrid1.ColCount-1-I then StringGrid1.Cells[I,J] := '0';
          end
        else
          begin
            if J >= I then StringGrid1.Cells[I,J] := '0';
          end;

end;