[FunBit]

Código Delphi [-]
while not Eof do begin
  if DataModule2.IBSQL1.FieldByName('ref_type').AsString = 'A' then
    begin
    ... //Acciones que deseas si el caracter obtenido es 'A'
    end else begin
    if  DataModule2.IBSQL1.FieldByName('ref_type').AsString = 'PA' then
      begin
      ...//Acciones que deseas si el caracter obtenido es 'PA'
      end else begin
      ...
 end;

y así succesivamente con las 6 posibles opciones que tienes.

Es eso lo que preguntas?

Un saludo!