1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TFrage = class(TObject)
  private
   FBewertungsText: array[0..9] of String;
    function Get(Index: Integer): string;
    procedure setString(Index: Integer; const S: string);
  public
   property Bewertungstext[Index: Integer]: string read Get write setString;
   constructor Create(bewText: array of String);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var
 frage : TFrage;
 stringArray: array of string;
begin
  SetLength(stringArray, 10);
    stringArray[0]:= Edit1.Text;
    ... // Der Kürze halber 1 bis 8 weggelassen
    stringArray[9]:= Edit10.Text;
    frage.Create(StrToFloat(eGewichtung.Text), stringArray);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

constructor TFrage.Create(bewText: array of String);
var i:Integer;
begin
  for i  := 0 to 9 do
  begin
   Bewertungstext[i]:=bewText[i];
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject); 
var 
 frage : TFrage; 
 stringArray: array of string; 
begin 
  SetLength(stringArray, 10); 
    stringArray[0]:= Edit1.Text; 
    ... // Der Kürze halber 1 bis 8 weggelassen 
    stringArray[9]:= Edit10.Text; 
    frage := Tfrage.Create(StrToFloat(eGewichtung.Text), stringArray); 
  end; 
end;