Como saca la extension?

[sac]

Hola gente...
Tengo un problema que parece sencillo de resolver pero todavía no pude.
Tengo que cargar en un label el nombre de un archivo desde un opendialog anteponiendole otro texto y sacándole la extension (en mi caso un .txt).
Utilice el extracfilename para sacarle el path y en el caption del label le asigné lo que voy a anteponer + el extractfilename(opendialog1.filename) pero no puedo quitarle la extensión.. siempre aparece lo que quiero mas '.txt' alguno me puede ayudar?