Edits solo acepte numeros y , .

[JXJ]

este es mi pequeño problema

estoy viendo que un edit me acepte

solo numero y sus delimitadores como son

, .

algo asi. 100.20

ó
100,20

5, 500.50
5, 500,50
5.500.50


encontre este codigo pero no se bien como adaptarlo

Código Delphi [-]
  if not(Key in ['0'..'9',#8]) then
  begin
    Key:=#0;
  end;