Copiar registro

[JLedian]

Hola
Ante mano darles las grasias por disponer de su tiempo para tratar de aclararme la duda. De veras que les estaré muy agradecido.
Les explico ... tengo una tabla en acces con los sgtes campos( Usuario, Clave, a, b, c) todos de tipo cadena; donde a, b, c son accesos que le doy al usuario y lo que necesito es a la hora de registrar un nuevo usuario tener la opcion de duplicar los accesos de otro usuario, digamos por ejemplo que estoy registrando al Usuario jose y quiero darle los mismos accesos que tiene uno ya registrado llamado josé.

procedure TDuplicarForm.FormShow(Sender: TObject);
var
i : integer;
begin
TRY
DM.ADOTblAcc.Open;
for i :=1 to (DM.ADOTblAcc.RecordCount) do
begin
ComboBox1.Items.Add(DM.ADOTblAccUsuario.AsString);
DM.ADOTblAcc.Next;
end;
FINALLY
DM.ADOTblAcc.Close;
END;
end;

procedure TDuplicarForm.Button1Click(Sender: TObject);
begin
{a qui es donde trato de hacer lo que antes les explique per no lo llego a conseguir}
DM.ADOTblAcc.Open;
If DM.ADOTblAcc.Locate('Usuario',ComboBox1.Text,[loCaseInsensitive]) then
begin
DM.ADOTblAcc.Append;
DM.ADOTblAccUsuario.AsString := UsuariosForm.Edit1.Text;
DM.ADOTblAccClave.AsString := UsuariosForm.Edit2.Text;
DM.ADOTblAcca.AsString := DM.ADOTblAcca.AsString;
DM.ADOTblAccb.AsString := DM.ADOTblAccb.AsString;
DM.ADOTblAccc.AsString := DM.ADOTblAccc.AsString;
DM.ADOTblAcc.Post;
end;
end;

Pero a desir verdad no es lo que consivo. me da un error ..
Bueno miles de grasias ...
Ledian