function FileExists(const FileName :string) :Boolean;
var
  Code :DWORD;
begin
  Code := GetFileAttributes(PChar(FileName));
  Result := (Code <> DWORD(-1)) and (Code and FILE_ATTRIBUTE_DIRECTORY = 0);
end;

-----------------------------------------------
if FileExists('C:\test.txt') then MessageBox(0,'Файл найден',0,0) else MessageBox(0,'Файл не найден',0,0);