delphi获取oracle的tnsnames.ora服务器名

procedure Tdatalink.FormCreate(Sender: TObject);
var
ARegistry:TRegistry;
froot:string;
Mylist:TStringList;
dbname:String;
a:array of char;
i:integer;
j:integer;
begin
f_main.Timer1.Enabled:=false;
ARegistry:=TRegistry.Create;
ARegistry.RootKey:=hkey_local_machine;
if ARegistry.OpenKey('Software',false) then
begin
ARegistry.OpenKey('oracle',false);
froot:=ARegistry.ReadString('VOBHOME2.0')+'/NETWORK/ADMIN/tnsnames.ora';
end;
Mylist:=TstringList.Create;
Mylist.LoadFromFile(froot);
j:=3;
while j<mylist.Count do
begin
dbname:=MyList.Strings[j];
SetLength(a,length(dbname)+1);
pchar(a):=pchar(dbname);
if length(a)=3 then j:=j+1;
if a[0]<>' ' then
begin
i:=0;
dbname:='';
while a[i]<>'=' do
begin
dbname:=dbname+a[i];
i:=i+1;
end;
i_server_add.items.Add(dbname);
end;
j:=j+1;
end;
end;