[ecfisa]

tengo el siguiente problema con esta consulta:
sqldieta.SQL.Add('SELECT * FROM datos_dieta, tabla_intolerancias WHERE identificador='+QuotedStr(elidentificador)+' AND tabla_intolerancia.alimento=datos_dieta.alimento ');

Hola.

Creo que tu consulta debería ser:

Código Delphi [-]
  sqldieta.SQL.Clear;
  sqldieta.SQL.Add('SELECT * FROM datos_dieta c1, tabla_intolerancias c2');
  sqldieta.SQL.Add('WHERE c1.identificador = :elidentificador AND ');// (*)
  sqldieta.SQL.Add('c1.alimento = c2.alimento');
  sqldieta.ParamByName('elidentificador').AsString:= elidentificador;

(*) c1.indentificador ó c2.identificador, de acuerdo a la tabla que pertenezca el campo.

O si preferis podés utilizar join tál como te sugiere oscarac.

Saludos.