TZQuery en tiempo de ejecucion....error

[[Caral]]

Hola
Normalmente, según tengo entendido, para crear componentes en ejecución se necesita que este ligado al padre.
Me da la impresión de que podría estar por ahí el error, ademas de que al crear el componente simplemente lo haces, sin definir la variable MiQry
Prueba asi, tal vez te sirva.

Código Delphi [-]
procedure TFInsertar.btnhayresultadosClick(Sender: TObject);
var
  MiQry : TZReadOnlyQuery;
  isql : string;
begin
  isql := 'select cdgo from tb03P where (centro = :centrotemp and fecha = :fechatemp);';
  try
   MiQry := TZReadOnlyQuery.Create(Self);
   with MiQry do
   begin
    Parent := Form1; // donde estará el ZReadOnlyQuery
    MiQry.Connection := Data.ZConnectTGS;
    MiQry.SQL.Clear;
    MiQry.sql.Text := isql;
    MiQry.ParamByName('centrotemp').Asinteger := dbedtcentro.Field.Value;
    MiQry.ParamByName('fechatemp').AsDate := bdedtfecha.Date;
    MiQry.Open;

    if MiQry.RecordCount >0 then begin
      labAlerta.Visible := True;
      MessageDlg('No se permite Duplicar Datos en la Fecha Seleccionada, por favor revíselo... ', mtError, [mbOK], 0);
      bdedtfecha.SetFocus;
    end else begin
      labAlerta.Visible := False;
    end;
  finally
    MiQry.Close;
    MiQry.Free;
  end;
end;
end;

No se, digo...., aunque también, digo, no se....
Saludos