读取结构体数据的问题

TDataBlock = record
      CardID: array [0..30] of Char;
      Money:  array [0..30] of Char;
      Result: array [0..2] of Char;
  end;  tmp:string;
  DataBlock:TDataBlock;

  tmp := 'FSFSFSFSDFSDFSFS得福所附F诉讼法得福撒';
  想要将string的值赋到DataBlock中的字段去
  tmp->?TDataBlock ??!!!!!!!!
  还有怎么将DataBlock变成string!!!!!