Cette fonction permet de vérifier l'existance d'un/des fichiers.

Function FileExists(const FileName: string): Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin

if FileExists('c:\yakafaire.txt') then ShowMessage ('Le fichier existe')
else ShowMessage ('Le fichier n''existe pas') ;

end;