Wiederholungsanweisungen

[Avicenna]

Hallo,
ich komme bei folgender Aufgabe einfach nicht weiter. Ich habe ein Würfelprogramm, und wenn mit dem Würfel w1 zweimal hintereinander die gleiche Zahl kommt, soll die Anzahl der dafür benötigten Werte ausgegeben werden.
Das Programm in den Rohform funktoniert, aber ich weiß nicht, wie ich die Aufgabenstellung umsetzen soll.
So sieht die betreffende Prozedur bisher aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  anzahl:=0;
  ergebnis:=0;
  repeat
    w1.wuerfeln();
    anzahl:=anzahl+1;
    ergebnis:=w1.augenLesen();
    w1.wuerfeln();
    anzahl:=anzahl+1;
  until ergebnis=w1.augenLesen();
  label1.caption:='Versuche:'+inttostr(anzahl);
end;

Das ist aber falsch, da nun lediglich geprüft wird, ob Wurf 1 + Wurf 2 oder Wurf 3 + Wurf 4 zusammenpasst, nicht jedoch, ob Wurf 2 + Wurf 3 zusammenpasst.

Wie kann ich die Aufgabe realisieren?