franroju,
El código se puede ampliar para aceptar cualquier carácter válido:
Código Delphi
[-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9',',']) then Key := Chr(0);
end;
Debes validar que la coma sea colocada en el lugar que requiere tu aplicación.
Espero sea útil
Nelson.