Gentage canvas :=HASTER:=

hej

Hvordan kan jeg køre denne procedure flere gange unden at k forbliver den samme for hver gentagelse

alså hver gang den kører skal variablen k have forskellige værdier.

den ser sådan ud:

Xu,Yu er erklæret globalt og Xu er sat til 0 og Yu er sat til 161 under Form1.onActivate


var k,i,X: Integer;
begin

    Randomize;
    k:=Random(3);
    if Xu >= 253 then
    begin
        Exit;
    end;
    if k = 2 then
    begin
        if Yu = 161 then
        begin
            Exit;
        end;
    end;
  case k of
    0: begin
          i:= Random(3);
          case i of
          0: X:= 10;
          1: X:= 25;
          2: X:= 40;
          end;
          IGraf.Canvas.MoveTo(Xu,Yu);
          IGraf.Canvas.LineTo(Xu + X,Yu - 20);
          Xu:= Xu + X;
          Yu:= Yu - 20;
          X:= 0;
        end;
    1: begin
          if Yu > 100 then
          begin
              Exit;
          end;
          i:= Random(3);
          case i of
          0: X:= 10;
          1: X:= 25;
          2: X:= 40;
          end;
          IGraf.Canvas.MoveTo(Xu,Yu);
          IGraf.Canvas.LineTo(Xu + X,Yu + 20);
          Xu:= Xu + X;
          Yu:= Yu + 20;
          X:= 0;
        end;
    2: begin
          IGraf.Canvas.MoveTo(Xu,Yu);
          IGraf.Canvas.LineTo(Xu + 20,Yu);
          Xu:= Xu + 20;
          Yu:= Yu;
        end;
  end;
end;