procedure TForm1.Button1Click(Sender: TObject); begin if FileExists('c:\MonFichier.txt') then ShowMessage('Ce fichier existe') else ShowMessage('Ce fichier n''existe pas'); end;