[olbeup]

Me sumo a Casimiro Notevi y aparte se comprueba si ya existe la coma, si es un edit que utilice número decimales.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // Comprobar si se ha pulsado un "." y cambiarlo por ","
  if (Key = #46) then
    Key := #44;

  // Ésta comprobación es para números decimales.
  // Comprobar si ya existe la "," y ponerlo en nulo.
  if (Pos(Key, Edit1.Text) > 0) then
    Key := #0;

  ...
  ...
end;

Un saludo.