real Zahl prüfen im Stringgrid

[eassy]

Delphi-Quellcode:

if (stringgrid1.Cells[0,lARow] = MENGE) then
begin
  //nur 0-9 und . zulassen alle anderen nicht
  case key of
    #33..#45: key := #0;
    #47: key := #0;
    #58..#255: key := #0;
  end;
end;