取得当前用户得delphi代码

取得当前用户得delphi代码：

procedure TForm1.FormCreate(Sender: TObject);
var
   user: Pchar;
   l   : dword;
   compuser: string;

begin
        l:=1024;
        user:=stralloc(succ(l));
        if GetUserName(User,l)   then
          Edit1.Text :=strpas(User);
end;