D7 falscher Compiler-Hinweis: Auf xxxx zugewiesener Wert ...

[p80286]

Hallo zusammen,

Ihr habt alle bestimmt schon die Meldung "Auf xxxx zugewiesener Wert wird niemals genutzt" gehabt. Ist ja auch nicht weiter schlimm, solange es bei dem Hinweis bleibt.
Wenn allerdings die entsprechenden Zeilen vom Compiler ignoriert werden, find ich das garnicht lustig. Insbesonders wenn der Hinweis auch noch falsch ist.

Delphi-Quellcode:

if fpos<=pufflen then begin
            setlength(pPosListrec^.Positions,pPosListrec^.Positions[0]+2);
            inc(pPosListrec^.Positions[0],1);
            pPosListrec^.Positions[pPosListrec^.Positions[0]]:=fpos+chkpos;
            if fpos>1 then begin         
              chkpos:=chkpos+fpos-1;
              move(buffer[fpos],buffer[1],gelesen+lpos-1-(fpos-1));
              move(UpCbuffer[fpos],UpCbuffer[1],gelesen+lpos-1-(fpos-1));
              pufflen:=pufflen-(gelesen+lpos-1-(fpos-1));{<------------------------hier gibt's mecker }
              if gelesen=lies then       { Dateiende noch nicht erreicht}
                blockread(edat,buffer[maxbuff-(fpos-2)],fpos-1,gelesen)
              else
                gelesen:=0;              { Dateiende erreicht}
              pufflen:=pufflen+gelesen;{<------------------------hier gibt's mecker }
            end;

Wie kann ich dem Compiler Seine Starrsinngkeit austreiben ( D7)?

Gruß
K-H