[Delphi] Probleme mit Aufgaben - Bitte um Tipps

// Aufgabe: Alle Personen dürfen beim Durchlauf nur einmal (!) erscheinen.
Boolean angelegt, aber nicht genutzt.
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, jpeg;
type
 TForm1 = class(TForm)
 Label1: TLabel;
 Image1: TImage;
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel;
 Button1: TButton;
 Button2: TButton;
 procedure Button2Click(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;
var
 Form1: TForm1;
var daten: textfile;
var nname: array[1..8] of string;
var vname: array[1..8] of string;
var geb: array[1..8] of string;
var tod: array[1..8] of string;
var genre: array[1..8] of string;
var anzahl: integer;
var frage: boolean;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var z: integer;
begin
 z := 0;
 assignfile(daten,'Daten.txt');
 reset(daten);
 while not eof(daten) do
 begin
 z := z + 1;
 readln(daten, nname[z]);
 readln(daten, vname[z]);
 readln(daten, geb[z]);
 readln(daten, tod[z]);
 readln(daten, genre[z]);
 end;
 closefile(daten);
 anzahl := z;
end;
procedure TForm1.Button1Click(Sender: TObject);
var k: integer;
begin
k := random(anzahl)+1;
repeat
 label2.caption := nname[k] + ', ' + vname[k];
 label3.caption := geb[k] + ' - ' + tod[k];
 label4.caption := genre[k];
 image1.Picture.loadfromfile('Person' + inttostr(k) + '.jpg');
until frage = false;
 end;
end

Wie lautet der Nachname?
Wie lautet der vollständige Vorname?
Nenne bitte die Lebensdaten.
Welchem Genre gehörte diese Person an?

Ein Quiz soll erstellt werden.
Dabei sollen Daten aus einer vorher angelegten txt. - Datei genutzt werden.
Ich habe Probleme, die Fragen mit Hilfe einer Zufallszahl aus der txt.-Datei einzuschleusen.
Es soll das jeweilige Bild und eine Frage erscheinen, nachdem der Benutzer auf Button_1 
geklickt hat.Der Benutzer kann seine Antwort in ein Edit-Feld eingeben und gelangt über Button_2 
zur der Auswertung.
Bisheriger Quelltext:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;
type
 TForm1 = class(TForm)
 Image1: TImage;
 Label1: TLabel;
 Label2: TLabel;
 Label3: TLabel;
 Edit1: TEdit;
 Button1: TButton;
 Label4: TLabel;
 Button2: TButton;
 procedure Button1Click(Sender: TObject);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;
var
 Form1: TForm1;
var daten: textfile;
var fragen: array[1..4] of string;
var anzahl: integer;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var z: integer;
begin
 z := 0;
 assignfile(daten,'Fragen.txt');
 reset(daten);
 while not eof(daten) do
 begin
 z := z + 1;
 readln(daten, fragen[z]);
 end;
 closefile(daten);
 anzahl := z;
end;
end.