Da Du mit den guten alten short-strings arbeitest ginge auch folgendes:
Code:
var s: ansistring;
size: word;
size := sizeOf( ttestRecord );
SetLength( s, size );
move( testRecord.Test1[0], s[0], size )
Allerdings hast Du das Längenbyte jedes Strings mit drin und die Linebreaks fehlen.