DBGrid ir para proximo componente via codigo

Estou usando o codigo abaixo no exit do componente, não quero que o usuario saia do componente ser prencher cada celula, só que tem um probleminha, não consigo sair do foco do DBGrid e ir para outro componente, já tentei desabilitar dentre outros, alguém sabe me dizer como ir para um outro componente via codigo, usando uma tecla como o
tab, ou simplesmente mudando de foco, já tente o setfocus, focusControl,
mas até agora...

procedure TBL.DBGrid1Exit(Sender: TObject);
begin
if (Dbgrid1.SelectedIndex = 0) And (DmGlobal.TblCntNRCNTR.AsString = ´´)then
begin
vazio;//chama mensagem...
Dbgrid1.SelectedIndex := 0;
Dbgrid1.SetFocus;
end
else
Dbgrid1.SelectedIndex := 1;
Dbgrid1.SetFocus;
if (Dbgrid1.SelectedIndex = 1) And (DmGlobal.TblCntTYPE.AsString = ´´) then
begin
vazio;
Dbgrid1.SelectedIndex := 1;
Dbgrid1.SetFocus;
end
else
Dbgrid1.SelectedIndex := 2;
Dbgrid1.SetFocus;
if (Dbgrid1.SelectedIndex = 2) And (DmGlobal.TblCntMOVEMENTTYPE.AsString = ´´) then
begin
vazio;
Dbgrid1.SelectedIndex := 2;
Dbgrid1.SetFocus;
end
else
Dbgrid1.SelectedIndex := 3;
Dbgrid1.SetFocus;
end;