Nach einem zweiten Blick auf Deinen Sourcecode
würde ich sagen, der compiliert noch nicht einmal:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
....,x,...:integer;
begin
...
x:=IntToStr(Random(100)+1);
...
end;
Des weiteren könnte es Dir helfen wenn Du ein wenig Ordnung in Deinen Code bringst.
Dann sollte Dir aufffallen, daß Du den wert von x niemals in das Array bzw. das Memo bringst.
Also investiere einmal 10 Minuten, und dann sehen wir weiter.
Gruß
K-H