请大侠帮忙。(5分)

为什么我用：
　　　　GetSystemDirectory(@s1,40);　　// s1为Char
; ; ; ; a:=s1; ; ; ; ; ;//a为string
; ; ; ; a:=a+s1;
最后得出的结果仍然是'g:/winnt/system32'，而不是预期的
'g:/winnt/system32g:/winnt/system32'？

谢谢。
　　　　

procedure TForm1.Button1Click(Sender: TObject);
var
; a:string;
; s1char;
begin
getmem(s1,40);
GetSystemDirectory(s1,40);// s1为Char
a:=s1; ; ; ; ; ;//a为string
a:=a+s1;
showmessage(a);
freemem(s1);
end;

谢谢，大侠：）