Как построить строку подключения

function BuildConnectionString(Database, Server, Login, Password:string):Widestring;

begin
  if Password<>'' then Password:=';Password='
                      +Password
                      +';Persist Security Info=True'
  else Password:=';Persist Security Info=False';
  result:=Format('Provider=SQLOLEDB.1%s;User ID=%s;Initial Catalog=%s;Data Source=%s',
                 [Password, Login, Database, Server]);
end;