Setar string num enum (ou algo parecido)

Olá,

Primeiramente vou detalhar a situação, tenho um campo no banco em que é gravado o tipo da operação (Crédito ou débito), hoje é comparado esse campo diretamente com uma string (DataSet.FieldByName('Campo').AsString = 'Valor'), porém isso é propenso a erro e fica difícil de achar os possíveis valores, queria algo como um enum, porém que desse para trabalhar com string, jogar um valor que permita espaço e acento (Como: "Crédito Especial"). É claro que seria melhor sendo orientado a objetos, isso já estaria resolvido, porém como todo sistema trabalha assim é inviável. Aceito qualquer sugestão :)

Desde já, agradeço.