DeleFile no funciona

[[BlueSteel]]

Por lo visto en aqui, puede que te falte la ruta del archivo

en la ayuda de delphi aparece esto

Código Delphi [-]
if FileExists(FileName) then
  if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then 
    DeleteFile(FileName);

Asi que modificando un poco tu funcion, podrias consultar esto

Código Delphi [-]
Function Apaga(Texto: String): boolean;
var
posicao: Integer;
begin
       posicao := Pos('CLASS',texto);
       if posicao > 0 then
          If FileExists(texto)  Then DeleteFile(texto);
end;

Salu2