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); TEdit(Sender).SetFocus;
end;
end;
Un saludo.