Prueba con
Código:
var
OldDS: Char;
begin
OldDS := DecimalSeparator;
DecimalSeparator := '.';
sql := 'Insert into Tabla (nom,apell,precio)
values ('+'''''+nom.text+''''+','+'''''+apell.text+''''+','precio.text+');';
AdoQueryConsulta.sql.clear;
AdoQueryConsulta.sql.add(sql);
AdoQueryConsulta.execsql;
DecimalSeparator := OldDS;
end;