esempio uno:

if instr(Text1.text,".PDF")>0 then
'estensione OK
else
'senza estensione
end if

oppure:

if right(Text1.text,4)=".PDF" then
'estensione OK
else
'senza estensione
end if