Delphi Record in for-schleife

[ig66]

Hallo,

ich habe folgende Frage, suche bereits schon seit einiger Zeit, bin aber nicht fündig geworden.
Ich möchte ein Rekord z.B. wie folgt:
Type
TtestRecord = record
Test1 = String[10];
Test2 = String[20];
Test3 = String[50];
Test4 = String[50];
Weitere 20…
End;

Ich möchte diese in einem String zusammenführen um sie dann in einer Datenbank abzulegen.
In einer for schleife muss ich jeden einzelnen mit Namen ansprechen z.B.

For i = 0 to High(testRecord) do
Begin
Str := Str + testRecord[i].test1;
Str := Str + testRecord[i].test2;
Usw.
End;
Kann man hier nicht so etwas anwenden?
For i = 0 to High(testRecord) do
begin
For n = 0 to testRecord_Feldanzahl do
Begin
Str := Str + testRecord[i][n];
End;
Str := Str + sLineBreaker;
End;

Fertig?