In StringGrid-Zeilen mit einem Balken navigieren

[LOMBI]

@marabu

Herzlichen Dank für Deine Demo.

Delphi-Quellcode:

procedure TFormKundenListe.BtnKundeNeuClick(Sender: TObject);
var
  s: TStrings;
  iCol: Integer;
begin
  with FormKunden, QueryKunden, GridKunden do
    begin
      FormKunden.ShowModal;
      Append;
      FieldByName('Name1').AsString := EditName1.Text;
      ...
      if LineCount > 0 then    
        begin
          iCol := Col;
          InsertRow(GridKunden, icol);
          Row := Pred(Row);
        end;
          ***********************************************
          for iCol := FixedCols to Pred(ColCount) do
          Cells[iCol, Row] := IntToStr(Random(90) + 10);
          SetFocus;
         ************************************************ 
       end;
         LineCount := LineCount + 1;
       end;

Durch was muß ich bitte die markierte Stelle im Code ersetzen, um meine Kundendaten ins Grid zu bekommen?

Beste Grüße
Lombi