// Button 1 zum vergleichen
n:= strtoint ( edit1.text);
 if n< x_zufall then
   label1.caption := 'Deine Zahl ist kleiner als die gesuchte Zahl';
   zaehler:= zaehler + 1 ;
     if n > x_zufall then
      label1.caption := 'Deine Zahl ist größer als die gesuchte Zah';
       if n = x_zufall then
        label1.caption := ' Du haste es geschaft und so viele Runde gebraucht :';
        label2.caption := inttostr(zaehler);

// Button 2 zum Starten

randomize;
 x_zufall := random(random(1000)) ;
 label1.caption := 'Los gehts!';
 Zaehler := 0 ;