Que onda amigos del foro tratando de resolver el problema que se presenta hice una prueba la cual lo que hice fue que en vez de llamar al procedimiento de llenar campos en el evento OnShow del formulario probe lo siguiente
Código Delphi
[-]
procedure TFrmCatalogoArticulos.FormShow(Sender: TObject);
begin
dm.taArticulos.Active := true;
statusbar.Panels[0].Text :='Consultando';
dm.taArticulos.Last;
dm.taArticulos.First;
if dm.taArticulos.RecordCount > 0 then
begin
statusbar.Panels[1].Text := 'Registro '+IntTostr(dm.taArticulos.RecNo)+ ' de ' + IntToStr(dm.taArticulos.RecordCount);
statusbar.Panels[2].Text := dm.taArticulos.FieldByName('codigo').AsString;
txtCodigo.Text := dm.taArticulos.fieldByName('CODIGO').AsString;
txtDescripcion.Text := dm.taArticulos.fieldByName('DESCRIPCION').AsString;
txtPrecio.Text := FormatCurr('"$ " ###,###,##0.00',dm.taArticulos.fieldByName('PRECIO').AsCurrency);
txtCantidadMin.Text := dm.taArticulos.fieldbyname('CANTIDADMIN').AsString;
txtCantidadMinimp.Text :=dm.taArticulos.fieldbyname('CANTIDADMINIMP').AsString;
txtPagina.Text := dm.taArticulos.fieldbyname('PAGINA').AsString;
end
else
begin
statusbar.Panels[1].Text := '0 de 0';
statusbar.Panels[2].Text := 'El catalgo no contiene registro de articulos';
end;
end;
lo cual no me manda el mensaje de error antes mencionado y ya que se termina de cargar el formulario y utilizo el procedimiento llenar_campos mas adelante ya no me da ningun error creo que esa seria la solucion por el momento de todas maneras muchas gracias por leer mi mensaje bye