*.EoF = mas de una condicion para un solo resultado

[papulo]

Código Delphi [-]
 If DataModule2.IBSQL1.FieldByName('ref_type').AsString = ['A','PA'] then
 begin
            StringGrid1.cells[0, i] := 'Alternador';
            i := i+1;
            StringGrid1.RowCount := i;
            end

Quiero hacer algo asi, si es posible. Juntar dos condiciones para un if y que me realicen la misma operacion, dado que no puedo usar case/of porque son strings y en la ayuda me especifica que con ese tipo de variables no funciona.

¿Alguna sugerencia?