Problema con post y dbcombobox
 

Saludos, tengo un problemilla al hacer post. Tengo una tabla en firebird donde un campo es numerico y almacena 1 2 3 o 4 y eso junto con otros campos los jalo a un formulario donde tengo entre otras cosas un dbnavigator y un dbcombobox, el combobox lo tengo apuntado al campo este pero en lugar de que me aparesca un 1 o un 2 o un 3 o un 4 kiero ke me aparesca tipo A, tipo B, tipo C, tipo D. COmo le puedo hacer, porke en los items del combo este le pongo estos textos pero a la ora de ke lo kiero cambiar para hacer un post por ejemplo si me jalo un 2, y en el combo le doy clikc para elegir tipo D, se escribe Tipo D en el combo pero a la ora de darle post me manda error de ke TIpo D no es integer, y ps es ovbio pero como le ago pa mandarle el valor 4??????? no se si me explike

Código Delphi [-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Ord(ComboBox1.Text[1])-64));
end;

Un Saludo.