Insertar Numero Real en Access

[__cadetill]

Prueba con

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;