Delphi random string

Was heißt "geht anscheinend nicht"? Gibts nen Compilerfehler, stürzt das Programm ab, macht es nicht das was es soll...?
Gibt es diese Funktion denn in Delphi? Normalerweise sollte die ja eine Zufallszahl generieren. Mit der du dann z.B. auf einen String in nem Array zugreifen kannst, also etwa

jop kam immer fehlermeldung, aber so gehts iwie auch net: E2004 Bezeichner redefiniert: 'fragenarray'
E2029 Bezeichner erwartet, aber String-Konstante gefunden

 fragenarray : ('stringa','stringb','stringc');
  hier           hier
  erster         zweiter
  fehler         fehler

Kannst du mal nen größeren Ausschnitt posten? Ich blick da gerade nicht durch, was mir das sagen soll. Oder hast du einfach das = vergessen?

wenn ich ein "=" setze kommt noch eine fehlermeldung dass er ein ":" erwartet aber ein":=" gefunden hat..
aber hier der code :

unit project;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, StrUtils;

type
  TForm1 = class(TForm)
    Spielstart: TBitBtn;
    Ende: TBitBtn;
    Wiederholen: TBitBtn;
    Ueberschrift: TPanel;
    A: TButton;
    C: TButton;
    B: TButton;
    AntwortA: TLabel;
    AntwortB: TLabel;
    AntwortC: TLabel;
    AntwortD: TLabel;
    D: TButton;
    Frage: TLabel;
    procedure beenden(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  fragenarray : array[0..9] of string;
  fragenarray[1] := 'hallo';

implementation
{$R *.dfm}

procedure TForm1.beenden(Sender: TObject);
begin
close;
end;

end.

Ich schätze mal, dass die Zuweisung (fragenarray[1] := 'hallo';) im Implementationsteil stehen muss, d.h. unter dem "implementation" 

so?
 

unit werwirdmil;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, StrUtils;

type
  TForm1 = class(TForm)
    Spielstart: TBitBtn;
    Ende: TBitBtn;
    Wiederholen: TBitBtn;
    Ueberschrift: TPanel;
    A: TButton;
    C: TButton;
    B: TButton;
    AntwortA: TLabel;
    AntwortB: TLabel;
    AntwortC: TLabel;
    AntwortD: TLabel;
    D: TButton;
    Frage: TLabel;
    procedure beenden(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
var
  fragenarray : array[0..9] of string;
  fragenarray[0] = 'h'  <--- ":"erwartet,aber"["erhalten
                             UNIT erwartet aber integer
                             erhalten (fehlermeldung)

procedure TForm1.beenden(Sender: TObject);
begin
close;
end;

end.

Nein, so:

hm hab ich gemacht, kommt aber ne fehllermeldung bei

fragenarray[0] := 'huhu';

hab die lösung gefunden, man muss in der procedure die einzelnen strings definieren z.B. so:
 

procedure TForm1.anfangen(Sender: TObject);
begin
fragenarray [1] := 'haha';

wie wärs damit, falls es noch was bringt:

var
  fragenarray: array [0..9] of string =('string1', 'string2', 'string3', 'string4', 'string5', 'string6', 'string7', 'string8', 'string9', 'string10');