50分求二个函数！~--- 一定结贴给分，谁先到，就给谁

Question

1、检查一个文件在一个目录里面是否存在？2、删除这个文件(deletefile()？)一定结贴给分谢谢了，谁先到，就给谁分！~~~

Answer 1

都是Delphi自己的函数。
function FileExists(const FileName: string): Boolean;
function DeleteFile(const FileName: string): Boolean;
在sysutils文件中声明

Answer 2

第一个函数：
用FileExists(Const FileName),在Sysutils单元里面
第二个功能（转贴）：
Wipe File?
procedure WipeFile(FileName: string); 
var 
  buffer: array [0..4095] of Byte; 
  max, n: LongInt; 
  i: Integer; 
  fs: TFileStream;   procedure RandomizeBuffer; 
  var 
    i: Integer; 
  begin 
    for i := Low(buffer) to High(buffer) do 
      buffer[i] := Random(256); 
  end; 
begin 
  fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive); 
  try 
    for i := 1 to 3 do  
    begin 
      RandomizeBuffer; 
      max         := fs.Size; 
      fs.Position := 0; 
      while max  0 do  
      begin 
        if max  SizeOf(buffer) then 
          n := SizeOf(buffer) 
        else 
          n := max; 
        fs.Write(Buffer, n); 
        max := max - n; 
      end; 
      FlushFileBuffers(fs.Handle); 
    end; 
  finally 
    fs.Free; 
  end; 
  Deletefile(FileName); 
end;