TContent = Record
                  Level : Integer;
                  Question,
                  Answer : AnsiString;
                  end;

Somearray: array[0..39] of TContent;

procedure Dosomething(withArray: array of TContent);
var i: Integer;
begin
for i:=0 to High(withArray) do withArray[i].Question:='';
end;