Wielokrotne wyświetlanie wyniku w polu edycyjnym

var liczba2 : integer ;
var wynik : integer ;
var losowosc : integer ;
var szansa : integer ;
  var petla : integer ;
begin
    Randomize;
    petla := 0;
    liczba1 := StrToInt(Edit1.text);
    liczba2 := StrToInt(Edit2.Text);
    szansa := random(2);
    losowosc := random(2000);
    wynik :=  liczba1 * liczba2;


    if (szansa =1) then
        begin
         for petla:=0 to 30 do               {Po kliknięciu przycisku chcialbym 30 razy zobaczyć losowy wynik w polu edit3}
            begin
            edit3.text := IntToStr(losowosc) ;
            end
        end
        else
        begin
        edit3.text := IntToStr(wynik);
        end;

end;
              

	     for petla:=0 to 29 do //Po kliknięciu przycisku chcialbym 30 razy zobaczyć losowy wynik w polu edit3 <- tu miałeś błąd tak jak miałeś 0 - 30 to 31 razy (może być też 1 to 30)
            begin
			  losowosc := random(2000);  //tu musisz losowac wynik
			  edit3.text := IntToStr(losowosc);
			  Application.ProcessMessages;  //przetwórz kokolejkę komunikatów (potrzebne aby nie zamrażać za długo programu no i aby program min. pokazał wynik)
			  Sleep(1000); //czekaj 1000ms = 1s		  
            end;

	        for petla:=0 to 29 do //Po kliknięciu przycisku chcialbym 30 razy zobaczyć losowy wynik w polu edit3
            begin
			  losowosc := random(2000); //tu musisz losowac wynik
			  edit3.text := IntToStr(losowosc);
			  Application.ProcessMessages;  //przetwórz kokolejkę komunikatów (potrzebne aby nie zamrażać za długo programu no i aby program min. pokazał wynik)
			  Sleep(1000); //czekaj 1000ms = 1s		  
            end;
			if (szansa = 1) then //50% szans to w końcu pokaże prawidłowy (jak nie to zostanie losowy)
			  edit3.text := IntToStr(wynik);