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; 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