[M.A.D.M.A.N.]

Код:

if SameStr(LowerCase(ExtractFileExt(FileName)), 'txt' {не помню, с точкой или без нее}) then
  FileName := FileName + '.txt';