>>402
var
  F: TSearchRec;
begin
  if FindFirst('P*.txt', faAnyFile, F)=0 then
  begin
    repeat
      DeleteFile(F.Name);
    until FindNext(F)<>0;
    FindClose(F);
  end;
end;