unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  filedir = 'c:\temp\test.txt';//在这里我的这个Test.txt文件是存在的
begin
if not FileExists(filedir) then
begin
      ShowMessage('我们要测试的文件不存在'+filedir);
end
else
begin
           ShowMessage('我们要测试的文件存在'+filedir);
end;

end;

end.

//最后显示的结果是“我们要测试的文件存在c:\temp\test.txt”;

//如果不存在的话显示结果就是："我们要测试的文件不存在c:\temp\test.txt"