Coma en teclado numérico

[__cadetill]

Puedes controlar el OnKeyPress del TDBEdit y, si se pulsa el punto, cambiar el valor por una coma

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = '.' then key := ',';
end;

Espero te sirva