Dos cosas:
1) tu condición Edit1.Text = ' ' creo que tiene un espacio. De cualquier manera, si el usuario ingresa espacios en blancos, tu condición se hace válida, lo cuál te daría un efecto no deseado en tu programa (consultaría un nombre en blanco). Yo te recomendaría: Trim(Edit1.Text) = EmptyStr
2) Los procedimientos almacenadas se ejecutan con el "ExecProc", no es necesario que pongas "Active := True".
|