Проверка файла при копировании

[_Sergey_1]

Добрый вечер. Прошу помощи гуру. Помогите пожалуйста , как убрать ошибку при копировании, если файла нет.

function CopyFile(fSource, fDest: String): Longint;
var
  fsIn, fsOut: TFileStream;

  fileName : string;
  myFile   : TextFile;
  data     : string;
begin
if FileExists('F:\1.txt') then
fsOut := TFileStream.Create(fDest, fmCreate);
fsIn := TFileStream.Create(fSource, fmOpenRead);
  try
    try
      fsIn.Seek(0, soFromBeginning);
      Result := fsOut.CopyFrom(fsIn, 0);
    finally
      fsIn.Free;
      fsOut.Free;
    end;
  except 
    begin
      fsIn.Free;
      fsOut.Free;
      Result := 0;
    end;
  end;
end;

копирую так:

CopyFile('F:\1.txt','C:\1.txt');

[p51x]

if FileExists('F:\1.txt') then
begin
end;

[_Sergey_1]

Сообщение от p51x

if FileExists('F:\1.txt') then
begin
end;

Спасибо Вам. Все получилось.