Ach ja, die Initialisierung brauchst du da ja nicht. Die brauchst du dann aber für ein neues Spiel, womit deine zweite Frage beantwortet ist.
Delphi-Quellcode:
procedure TForm5.Button2Click(Sender: TObject);
var p,z,i:integer;
begin
////////////////////////////////////////////////////////////////////////
Randomize;
if length(liste)<=gesamt-anzahl then
Und einen Fehler: Wenn ich auf Weiter statt eine Antwort klicke wird trotzdem weitergezählt...