Ups, me faltó un paréntesis. De todas formas, te recomiendo que al menos, mires la ayuda sobre las funciones que he puesto.
Código Delphi
[-]
if fileExists(ChangeFileExt(Application.Exename,'.dat'))
Si te falta algún uses, puedes hacer clic en la función, y despues F1.
saludos