subescreve os registros anteriores

caros amigos;

Estou selecionando os dados do datagrid1 através de um checkbox, é acionando o evento no

button para passar para datagrid2. estou conseguindo pegar todas as linhas que foi

selecionada no datagrid pelo checkbox, qdo faço o select ele fica somente o último registro,

subscreve os anteriores, teria como ir adiconando neste componente CmdEmployees ou isso é

impossivel, teria outro componente ou comando que fizesse isso?

procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
dgitem:DataGridItem;
ck:CheckBox;
DeptNo:string;
begin
for dgitem in datagrid1.Items do
begin

ck:= CheckBox(dgitem.FindControl(´checkbox1´));
if not ck.Checked = false then
begin
if ck.Checked then
Begin
DeptNo:= datagrid1.DataKeys[dgitem.ItemIndex].ToString;
//vai para a procedure abaixo
AbrirEmployees(DeptNo);
end;
end;
end;
end;

procedure TWebForm1.AbrirEmployees(DeptNO: String);
begin
BdpConnection1.Open();
try
CmdEmployees.Parameters[´DEPT_NO´].Value := DeptNO;
DataGrid2.DataSource := CmdEmployees.ExecuteReader();
DataGrid2.DataBind();
finally
BdpConnection1.Close();
end;
end;
obrigado a todos