Fiz o Seguinte. begin
Case dbrg_Turma.ItemIndex of
2: dbrg_Ano.ItemIndex := 2;
end;
If dbrg_Turma.ItemIndex = 2 then
db_Evento.SetFocus;
end; Fiz isso e funcionou. Eu gostaria de aprender mais sobre Case ...of, if ... then, sabes onde tem um bom tutorial? Gostaria de saber como eles são reconhecidos pelo Delphi exemplo: "if" se não me engano é "se", e se existe outros desse códigos? Valeu pela Força, se você permitir posso colocar esse post como resolvido. Abraços, Rajare