FMX Custom Header for TStringGrid

Question

I am using this code to set the column Headers for my TStringGrid (FMX - 10.4.1)

procedure TDialogForm.sgObjectListApplyStyleLookup(Sender: TObject);
var
  He