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:

Código Delphi [-]
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

Código Delphi [-]
procedure TForm1.editExit(Sender: TObject);
begin
     IF TreeView.Focused=FALSE THEN
     begin
           //hacemos la verificacion
     end;
end;