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;
....