Neu erzeugte Columns automatisch mit text füllen

[rhodan]

zum besseren verständnis hier nochmal der gesamte code der auf knopfdruck ne neue column anlegt in beiden stringgrids

Delphi-Quellcode:

procedure TForm2.neuermitarbeiterClick(Sender: TObject);
var
 Column: Integer;
 NewColumn: Integer;
begin
  Grid.ColCount := Grid.ColCount + 1;
  proviGrid.ColCount := proviGrid.ColCount + 1;

  for Column := Grid.ColCount - 1 downto NewColumn do
    Grid.Cols[Column].Assign(Grid.Cols[Column - 1]);
    for Column := proviGrid.ColCount - 1 downto NewColumn do
    proviGrid.Cols[Column].Assign(proviGrid.Cols[Column - 1]);

  Grid.cells[NewColumn - 1,0] := '';
  proviGrid.cells[NewColumn - 1,3] := 'test';
  if grid.Colcount > 9 then
  grid.Colcount:=9;
   if provigrid.Colcount > 9 then
  provigrid.Colcount:=9;
end;

die zeile

 proviGrid.cells[NewColumn - 1,3] := 'test'; hab ich jetzt nur zu testzwecken verändert aber es tut sich nichts beim erstellen einer neuen column texttechnisch

ps: sorry für doublepost