多线程指针问题请教：记录指针传递出错
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
PTRec_Code = ^TRec_Code;
TRec_Code = packed record
Code,Date: String;//
end;


TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
G_Rec_Code : TRec_Code;

implementation

{$R *.dfm}

procedure Ana_Data(TheValues : PTRec_Code);
var
TheRecData : TRec_Code;
begin
TheRecData := TheValues^;
showmessage(TheRecData.Code);
end;

procedure ThrFun_Data();
var
TheThr:thandle;
TheThrID:dword;
begin
G_Rec_Code.Code := '0123';
G_Rec_Code.Date := '2013-08-01';
TheThr := beginthread(nil,0,@Ana_Data,@G_Rec_Code,0,TheThrID);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ThrFun_Data();
end;

end.
/////////////////////////////////////////////
TheRecData.Code
这句出错，请教要如何修改？？？