Edits solo acepte numeros y , .

[ecfisa]

Hola JXJ.

Para que solo admita números y los delimitadores '.' y ',' , basta con poner este código en el evento OnKeyPress de los Edits.

Código Delphi [-]
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'0'..'9',',','.']) then
  begin
    MessageBeep(MB_ICONERROR);
    Key:= #0;
  end;
end;

Pero existe la posibilidad de que duplique un delimitador u otra inconsistencia que realize por copiar/pegar. Por lo que deberías complementar con este código en el evento OnExit de los Edits.

Código Delphi [-]
procedure TForm1.EditExit(Sender: TObject);
var
  d: Double;
begin
  if not TryStrToFloat(TEdit(Sender).Text,d) then
  begin
    MessageBeep(MB_ICONERROR); //o el mensaje que quieras
    TEdit(Sender).SetFocus;
  end;
end;

Un saludo.