[elcolo83]

Hola,
Lo que podrias hacer es que en el evento OnkeyPress de TEdit seria agregar algo asi

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key)>31 then
  with TEdit(sender) do
    case key of
      '0'..'9': key:= key;
      ',': if pos(',',Text)>0 then Key:= #0;
      else key:= #0;
    end;
end;

Con eso solo podra ingresar numeron y una sola ',' (coma)