zahlen in stringgrid speichern

[Joe24]

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    StrToInt( Edit1.Text);
    with Stringgrid1 do
      begin
        Cells[ 1, stringgrid1.RowCount -1] := Edit1.Text;
        RowCount := RowCount +1;
      end;  
  except
    on EConvertError do
      MessageBox( 0, 'Eintrag ist keine Zahl!','ERROR',0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Stringgrid1.RowCount := 1;
end;