看看我的程序什么毛病？

procedure TForm1.FormCreate(Sender: TObject);
var
aaa:array [0..255] of char;
sz:cardinal;
k:string;
begin
    sz:=256;
    try
      if GetComputerName(aaa, sz) then
         k:=trim(aaa);
    except
       k:='10.70.151.69';
    end;
end;
这段程序在98下运行没有毛病，在2000下却报“未知的异常”并且退出，这什么原因？