Jak przekonwertować określony typ do tablicy znaków

Cześć mam mały problem

Type
TRecord= record
Nr : Integer;
Nap: String[25];
end;

To jest przykładowy rekord ale dokładnie mi chodzi ża mam nie okreslony rekord w pliku znam tylko jego całkowity rozmiar i muszę go wstawić do tabeli znaków.

var
Buf : array of char;
P : Pointer;
Próbowałem prze procedure Move

begin
SetLength(Buf, 33); <- wstawiam rozmiar rekordu
Move(P, Buf, 33);

po pierwsze to chyba buf[0].

Ewentualnie coś takiego:

type
  TRekord = packed record
    i:integer;
    s:string[25];
  end;

var arr:array of char;
    rec:TRekord;
begin
rec.i:=$30313233;
rec.s:='ABCDEFGHIJ';

SetLength(arr, sizeof(rec));
CopyMemory(arr, @rec, sizeof(rec));
end;