Прировнять при вводе точку к запятой

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked=true
    then
begin
 
 a:=StrToFloat(abt.Text);
 b:=175;
 c:=StrToFloat(cbt.Text);
 e:=StrToFloat(ebt.Text);
 if ((a>e) or (c>b)) then
  begin
    ShowMessage('Неверные данные (1 октава): Минимальная полоса пропускания прибора превышает ширину октавной полосы, либо величина напряжения шума превышает величину суммарного напряжения смеси сигнала и шума.');
    exit
  end;
 if ((a<=e) or (c<=b)) then
 d:=a*Sqrt(c/b);
 f:=Sqrt(Sqr(e)-Sqr(a));
 g:=f/d;
 Compl1.Caption:=FloatToStr(round(g*1000)/1000);
 if g>0.3 then Label1.Caption:=('Не соответствеут нормам');
 if g<=0.3 then Label1.Caption:=('Соответствеут нормам');
  end;

var str:string;
     i:integer;
     n:extended;
begin
  str:=edit1.text;
  for i:=1 to length(str) do
    if str[i]=',' then str[i]:='.';
 
  n:=strtofloat(str);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.Text) <> 0
                      then Key := Chr(0);
          else   // остальные символы запрещены
               key := Chr(0);
 
    end;
end;

if str[i]=',' then str[i]:='.';

if str[i]='.' then str[i]:=',';

procedure TForm1.Button1Click(Sender: TObject);
var
    str:string;
     k:integer;
     n:extended;
 
begin
     begin
  str:=abt.text;
  for k:=1 to length(str) do
    if str[k]='.' then str[k]:=',';
 
  n:=strtofloat(str);
end;
  if CheckBox1.Checked=true
    then
begin
 
 a:=StrToFloat(abt.Text);
 b:=175;
 c:=StrToFloat(cbt.Text);
 e:=StrToFloat(ebt.Text);
 if ((a>e) or (c>b)) then
  begin
    ShowMessage('Неверные данные (1 октава): Минимальная полоса пропускания прибора превышает ширину октавной полосы, либо величина напряжения шума превышает величину суммарного напряжения смеси сигнала и шума.');
    exit
  end;
 if ((a<=e) or (c<=b)) then
 d:=a*Sqrt(c/b);
 f:=Sqrt(Sqr(e)-Sqr(a));
 g:=f/d;
 Compl1.Caption:=FloatToStr(round(g*1000)/1000);
 if g>0.3 then Label1.Caption:=('Не соответствеут нормам');
 if g<=0.3 then Label1.Caption:=('Соответствеут нормам');
  end;

...................
твой код
..................
 
a:=StrToFloat(StringReplace(abt.text,'.',',',[]));
c:=StrToFloat(StringReplace(cbt.text,'.',',',[]));
e:=StrToFloat(StringReplace(ebt.text,'.',',',[]));
 
...................
твой код
..................

//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества D.
function StrToFloatSafe(const aStr : String) : Extended;
const
  //Множество возможных разделителей целой и дробной части в записи числа.
  D = ['.', ','];
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do begin
    if S[i] in D then begin
      S[i] := DecimalSeparator;
      Break;
    end;
  end;
  Result := StrToFloat(S);
end;