var
au,aukontr:Double;

begin

DecimalSeparator :='.'; // Разделитель точка 

    DataModule2.ADOQueryTimerash.Close;
    DataModule2.ADOQueryTimerash.SQL.Clear;
    DataModule2.ADOQueryTimerash.SQL.Add('INSERT INTO timeprash_tb(trash_au) VALUES(:pau)');
    DataModule2.ADOQueryTimerash.Parameters.ParamByName('pau').Value:=StrToFloat(Form1.Edit14.Text);      //дробное число из едита
   
    aukontr:= StrToFloat(Form1.Edit14.Text);
    
    ShowMessage( FloatToStr(aukontr));    // сообщение есть с числом  au, в сообщении выводиться с дробной частью


    DataModule2.ADOQueryTimerash.ExecSQL;