Usar enter para enviar um registro de uma tabela para outra

Colegas,

coloquei o codigo abaixo para que ao pressionar a tecla Enter levar da tabela atividade o registro selecionado em um dbgrid para outro formulário na tabela Cadastro, so que não está funcionando, o que está faltando , se alguém puder ajudar ficarei grato.

procedure TfmAtividade2.DBGrid1OnKeyPress(Sender: TObject);
begin
if Assigned(fmCadastro) then //testa se o Form2 esta criado.
begin
fmCadastro.DBEdit3.DataSource.DataSet.FieldByName(´Atividade´).Value := DBGrid1.DataSource.DataSet.FieldByName(´Atividade´).Value;
fmCadastro.DBEdit3.SetFocus;
close;
end;
end;
end.

Observação: ja coloquei (If key = #13 then) mas, não funciona.