Evento OnExit de un Edit

[Caro]

Hola a todos

Como puedo saber que en el momento que se ejecute el evento onexit de un edit, hacer una verificación si el nuevo componente al que esta ingresando es otro edit, si la verificación sale que no es correcto no dejarle salir del edit hasta que ponga algo correcto, pero si el siguiente componente al que quiere ingresar no es otro edit y es un treview no hacer la verificación y dejar que tenga el foco el treview, cualquier idea o sugerencia sera bienbenida.

Estaba intentando con lo siguiente:


procedure TForm1.edit1Exit(Sender: TObject);
var
verificar,componente_activo:STring;
begin
componente_activo:=Form1.ActiveControl.Name;

IF componente_activo<>nombre_treeview THEN
begin
//Aqui hago la verificación
verificar:=verificarCod;
IF verificar=0 THEN
edit.SetFocus;
end;
end;


Pero me sale error Access Violation cuando intento obtener el nombre del control activo

Muchas Gracias por adelantado y que tengan un bonito dia

[Caro]

Solucionado me funciono de la siguiente forma


procedure TForm1.editExit(Sender: TObject);
begin
IF TreeView.Focused=FALSE THEN
begin
//hacemos la verificacion
end;
end;