Utilizar o DBGRID para adicionar e remover itens em tabela

Srs. estou querendo utilizar dois DBGrids para adicionar e remover itens em uma tabela. Ou seja, através de um DBGrid relacionado a uma tabela quero adicionar os dados desta tabela em outro DBGrid relacionado a outra tabela diferente. Gostaria de saber o que está errado pois quando compilo o programa ele trava ou me dá uma mensagem de erro. Não sei se o problema é no comando if ou no comando Findkey. Alguem poderia me ajudar ou me dar alguma dica para solucionar este problema. Acredito que este problema seja de simples resolução, para quem não é iniciante como eu.
Obrigado a todos.

Estou utilizando o Código abaixo:

procedure TFormFormaTurma.BotaoADDClick(Sender: TObject);
var contador: integer;
begin
With GridMatricula do
Begin
for contador:=0 to pred(SelectedRows.Count) do
Begin
DataModule1.TblCadTurmaAlunoCodigo.AsString:=GLEscolheturma;
GLMatricula:=DataModule1.TblCadAlunosMatricula.AsString;
If (DataModule1.TblCadTurmaAlunoCodigo.AsString = GLEscolheturma) and
(DataModule1.TblCadTurmaAluno.FindKey[StrToFloat(DataModule1.TblCadTurmaAlunoMatricula)])
then
ShowMessage(´Este aluno já está Matriculado nesta turma´)
end;