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