Un método append que funciona en un Grid y falla en un TForm con controles

[ecfisa]

Hola gorsan.

La verdad me cuesta entender la situación, por ejemplo:

Sobre un formulario dispongo un Grid enlazado a ese DataSet de modo que el TForm queda encima y el grid debajo

¿ Como logras eso ?

Además hay controles como GLista, PNEdicion, WFicha que no imagino la clase y no me queda en claro cuál es su función

Otra cosa curiosa es que sobre los controles del Form puedo editar los datos y guarda los cambios directamente sin el post pero no permite el método append lanzando la siguiente excepción:
"cannot focus a disabled or invisible window"

Ese error es provocado por darle el foco (SetFocus) a un control que en ese momento, tiene su propiedad Visible o Enabled en False.
Hay tres puntos donde llamas al método SetFocus:

Código Delphi [-]
procedure TWFicha.TBTablaClick(Sender: TObject);
begin
  ...
  GLista.SetFocus; // (1)
end;

procedure TWFicha.TBAddClick(Sender: TObject);
begin
  ...
  EBuscar.SetFocus; // (2)
  ...
  DBPRIMER_APELLIDO.SetFocus; // (3)
end;

Con seguridad la provoca una (o mas) de ellas.

Saludos