：我用以下语句动态的建了一个odbc,我如何使我的database控件连上去呢?(5分)

procedure TForm1.Button1Click(Sender: TObject);
var registertemp:tregistry;
begin
registertemp:=tregistry.create;
with registertemp do
begin
rootkey:=hkey_local_machine;
if openkey('software/odbc/odbc.ini/odbc data source',true) then
begin
writestring('pf','sql server');
end;
closekey;
if openkey('software/odbc/odbc.ini/pf',true) then
begin
writestring('database','pfjxc');
writestring('driver','C:/WINDOWS/SYSTEM/SQLSRV32.dll');
writestring('lastuser','sa');
writestring('server','NTSERVER');
end;
closekey;
free;
end;
end;

分太少。

to yongshiok:
你也配做程序员？[]

database的aliasname指向pf

[][][]不想和你吵。
你可以在database的beforeconnect事件前对其params进行设置。