Código Delphi [-] Edit1.Text := qyCategoriasNombre.Fields[1].AsString;
Edit1.Text := qyCategoriasNombre.Fields[1].AsString;