1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
begin
   edit1.text:=strtoint(a);<---felhler:inkompatible typen 'string'und 'integer'
   edit2.text:=strtoint(b);<---s.o.
   edit3.text:=strtoint(c);<---s.o.
  repeat
    button1.caption:= ('Noch mal !') ;
    x:=(random(103)+1);
    y:=(random(103)+1);
    z:=(random(103)+1);



  until
   (a<>b) and
   (a<>c) and
   (b<>c);

   edit1.text:=inttostr(x);
   edit2.text:=inttostr(y);
   edit3.text:=inttostr(z);
end;					

1:

edit1.text:=IntToStr(a);