帮忙修改,谢谢

var
   Client:TClientDataSet;
   Ds:TDataSource;
   dataname:String;
begin
try
dataname:=abcd  \\ 可动态指定
client:=TClientDataSet.Create(nil);
client.Name:=dataname;
client.RemoteServer:=data.DC;
client.ProviderName:=dataname;
DS:=TDataSource.Create(nil);
Ds.Name:=dataname+'s';
ds.DataSet:=client;
client.Open;
except
//
end;
end;
//我现是想要把这段代码写在一个公共单元里,在别的地方都的使用,
请问这怎么写呢,谢谢