Código Delphi
[-]while not Eof do begin
if DataModule2.IBSQL1.FieldByName('ref_type').AsString = 'A' then
begin
... end else begin
if DataModule2.IBSQL1.FieldByName('ref_type').AsString = 'PA' then
begin
... end else begin
...
end;
y así succesivamente con las 6 posibles opciones que tienes.
Es eso lo que preguntas?
Un saludo!