Здравствуйте, OlkaOlenka!
Есть разные способы это сделать. Можете в OnKeyPress вашего Edit'а смотреть на нажатую клавишу и вводить другую, если требуется. Однако проще перед внесением в базу просто поменять в строке все запятые на точки. В приложении функция, заменяющая все запятые на точки в строке.

Кстати, существует глобальная переменная DecimalSeparator, значение которой определяет как раз этот самый разделитель (точка, запятая или еще чего:))
Удачи вам, Ольга!

Приложение:
Function TochkiForever(S: String): String;
Var
i: Byte;
Begin
i:=1;
While i<=Length(S) do
begin
If S[i]=',' then S[i]:='.';
inc(i);
end;
Result:=S;
End;

Здравствуйте, OlkaOlenka!
Отвечу с запозданием, но все же.
Есть более гибкий, и более правильный (на мой взгдяд) способ.
В Delphi есть специальная переменная DecimalSeparator. Установив ее в нужный вам разделитель, вам не нужно будет писать обработчик нажатия клавиши на каждый из эдитов.
Рекомендую устанавливать эту переменную в модуле проекта (см. приложение). Не забудьте добавить в uses модуль SysUtils.

С уважением, Руслан.

Приложение:
program Project1;

uses
Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
DecimalSeparator := '.';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.