stringgrid und eingabe von zahlen

[ASM]

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.EditorMode := true;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then key := #0;
  // evt. noch nach Bedarf '.',',','+','-' in das Set zufügen
end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with StringGrid1 do
    if Col = 1 then Stringgrid1.Options := Stringgrid1.Options - [goEditing]
    else Stringgrid1.Options := Stringgrid1.Options + [goEditing];
end;