StringGrid - jak přidat text – Delphi – Fórum – Programujte.com

Klucí, co dělam špatně?

procedure TForm1.Button2Click(Sender: TObject);
var
Row: Integer;
begin
  if StringGrid1.RowCount = 1  then
                begin
                  StringGrid1.Cells[1, 0]:='test';
                end
                else
                  Row := StringGrid1.RowCount;
                  StringGrid1.RowCount := Row + 1;
                  StringGrid1.Cells[1, Row]:='test';
                  StringGrid1.Row := Row;
                end;

Účelem je mít StringGrid s jedním řádkem a postupně ho krmit.
Děkují   

Kolem toho bloku za else dej begin-end.