type
  TMyRec=packaged(也不知写的对不对) record   
    i:integer;
    c:char;
    a:array[1..10] of char;
  end;  
试试.用紧凑格式.