[ixMike]

jeje eso nos ha pasado a todos

En cuanto a la segunda opción de Delphius, a mí me gusta más esto:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=',' then Key:='.'; //Puedes intercambiar '.' y ',' según te convenga 
end;

Salu2.