DeleFile no funciona

[Paulao]

Este funcion no funciona, o sea, si el lo encuentra un archivo que tenga la string CLASS, no deberia hacer el copytostream pero lo hace, o sea, no respecta mi IF. Abajo el código:

Código Delphi [-]
....
hftName := fFindFiles.DestPath + JobName + '.hft';

  posicao := Pos('CLASS',hftName);

  Stream := TFileStream.Create(hftName, fmCreate);
  try
    if posicao = 0 then
      fJob.SaveToStream(Stream);
  finally
    Stream.Free;
  end;
....