[rafita]

hola a todos,
creo que el problema ya lo teneis solucionado, pero quería mostrar una forma corta de hacerlo
En el evento OnKeyPress del campo pongo este procedimiento:

procedure TFTrataResiduos.SoloNumerosYComa(Sender: TObject; var Key: Char);
begin
  if Key='.' then Key:=',';		    //admito el punto para introducir los decimales, pero lo cambio por la coma
  if Pos(',',LabeledEdit3.Text)=0 then
	 if not (Key in ['0'..'9',',',#8]) then Key:=#0  //si no hay una coma, la admito como carácter válido
	 else Exit
  else
	 if not (Key in ['0'..'9',#8]) then Key:=#0;	 //si hay alguna coma, ya no admito más
end;

hasta ahora me ha funcionado

Saludos,