Dodawanie kolejnych wierszy do komponentu StringGrid

Witam, mam pytanie jak dodawać kolejne wiersze do komponentu StringGrid, w założeniu, że mam następujący program składający się z komponentu DBGrid, PopUpMenu i StringGrid, chcę zrobić coś takiego, że gdy kliknę PPM na daną osobę z wyświetlonej tabeli na DBGridzie i wybiorę dodaj to jej dane wpadają do StringGrida i tak dalej, wybierając kolejną osobę wskakuje ona do kolejnego wiersza.

To co mam napisane:

var
  Form1: TForm1;
  k0,k1,k2:String;
  implementation
  {$R *.dfm}

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
k0:=DBGrid2.Fields[0].AsString;
k1:=DBGrid2.Fields[1].AsString;
k2:=DBGrid2.Fields[2].AsString;
end;

procedure TForm1.Dodaj1Click(Sender: TObject);
begin
.........
end;

end.

I co dodać do procedury Dodaj1Click aby po każdym kliknięciu dana osoba wskakiwała do nowego wiersza StringGrida

P.S. Pomijam inne fragmenty kodu służące mi do wybieranie wartości z bazy itp.

coś w ten deseń:

StringGrid.RowCounts :=  StringGrid.RowCounts + 1;
lastRow :=  StringGrid.RowCounts  - 1;
StringGrid.Rows[lastRow][0] := k0;
StringGrid.Rows[lastRow][1] := k1;
StringGrid.Rows[lastRow][2] := k2;