有一句代码不理解，请帮忙解释一下，谢谢！(30分)

这是delphi帮助文件中的一个例子
procedure TForm1.Button1Click(Sender: TObject);
var
FirstHalf: PChar;
SecondHalf: PChar;
HalfLen: Integer;
begin
HalfLen := StrLen(PChar(Edit1.Text)) div 2;
GetMem(FirstHalf,HalfLen+2);
GetMem(SecondHalf,HalfLen+2);
//以下两句是起什么作用，谢谢！！！！！！！！！！！！
FirstHalf^ := Chr(0);
SecondHalf^ := Chr(0);
//以上两句是起什么作用，谢谢！！！！！！！！！！！！

StrLCat(FirstHalf, PChar(Edit1.Text), HalfLen);
StrCat(SecondHalf, PChar(Edit1.Text) + HalfLen);
Application.MessageBox(FirstHalf, 'First Half', MB_OK);
Application.MessageBox(SecondHalf, 'Second Half', MB_OK);
FreeMem(FirstHalf);
FreeMem(SecondHalf);
end;

PChar 是以#0为结束符的字符串, 他只不过简单的初始化字符串为空

是这样啊，明白了，谢谢！