Ese problema sucede cuando haces un SetFocus a un componente que esta deshabilitado o invisible, o que esta sobre una ventana / contenedor en ese estado.
Es un error muy común hacer un SetFocus en el create de un form, y como el form aún no se encuentra visible produce este error, una solución sencilla para esto es hacer lo siguiente:
Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
ActiveControl := Edit1;
end;
o hacerlo en el Load, o preguntar por CanFocus....
A simple vista el código que pasaste no produciría directamente ese error, aunque puede ser disparado desde algún evento en particular, como los eventos del dm.md_publica
PD:
Me gusta mas pensar que Disabled es desactivado / deshabilitado y no lisiado
Saludos!