Verschachtelte Schleifen - Gesamtfortschritt

[Luckie]

Ich habe zwei verschachtelte Schleife:

Delphi-Quellcode:

for i := 0 to x do
begin
  while j < y do
  begin
    // hier Gesamtfortschritt ermitteln
  end;
end

Wie ermittele ich jetzt in der inneren Schleife den Gesamtfortschritt? Ich stehe da irgendwie auf dem Schlauch.