If ... then problem

[Hofnarr]

ich habe nochmal ein problem... diesmal hoffentlich beim richtigen ort


nun habe ich wirklich ein problem... aber erst mal den Quelltext:

Delphi-Quellcode:

    if s=20 then
    if z>w20 then
   begin
    ptsw20.Caption:=inttostr(z);
    rekw20.Caption:=(name.text);
   end;

      if s=50 then
      if z>w50 then 
     begin
      ptsw50.Caption:=inttostr(z);
      rekw50.caption:=(name.Text);
     end;

        if s=100 then
        if z>w100 then//fehler ptsw100 wird immer upgedatet
       begin
        ptsw100.caption:=inttostr(z);
        rekw100.Caption:=(name.Text);
       end;

nun bei einem kleinen Spiel habe ich quasi eine Punkteliste gemacht.

nun zum problem ptsw20/ptsw50/ptsw100 sollten nur ersetzt werden, wenn z ein höherer wert erreicht hat als bisher auf dem label "gespeichert" war. nur das Problem ist: dass bei ptsw20 die Regel stimmt und die anzeige nur aktualisiert wird wenn eine höhere zahl erreicht wurde. jedoch bei ptsw50/ptsw100 werden die Zahlen immer angebasst, auch wenn sie niedriger sind. hat jemand eine Idee?