Problema al evaluar varias sentencias usando If y AND

[roman]

Empezado por wull

y con la segunda me marca error, me dice que AsString no ha sido definida o declarada

Cierto. No me había percatado que está usando ADO. Tendrías que especificar directamente el tipo de datos del parámetro:

Código Delphi [-]
Parameters.ParamByName('PMES').DataType:=ftString; // Algo así, no estoy seguro
Parameters.ParamByName('PMES').Value:=RGmes.Items[RGmes.ItemIndex];

// Saludos