Hola:
Mírate este hilo, donde se trató este mismo tema. La solución consiste en sustituir únicamente el punto cuando se pulsa desde el teclado numérico, y afecta a toda la aplicación, lo cual en la mayoría de los casos será válido:
http://www.clubdelphi.com/foros/show...?threadid=1463
También puedes usar la solución de Cadetill, y si los DBEdits van enlazados a un evento común, hacer la siguiente comprobación:
Código:
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
with TDBEdit(Sender) do
if (key = '.') AND Assigned(Field) AND
(Field.DataType in [ftCurrency, ftFloat]) then
key := ',';
end;