No se bien si se puede extraer como dices la extension del archivo que esta almacenado. pero creo que si se puede agregar en el momento que se carga.
Como?
Código Delphi
[-]ClientDataSet1.FieldByName('FOTO').AttributeSet:='.bmp';
y luego al momento de leer
Código Delphi
[-]
if(ClientDataSet1.FieldByName('FOTO').AttributeSet = '.bmp')then ...